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The  fact  that  the  hardware  cost  is  decreasing  rapidly 
and  software  cost  continues  to  increase  as  shown  by  Figure  1, 
in  a  United  States  Air  Force  study  [Ref.  1],  leads  us  to  con¬ 
sider  systems  that  achieve  the  best  utilization  of  software 
development  productivity.  These  considerations  motivated 
system  designers  to  build  advanced  database  systems  in  order 
to  decrease  software  cost  and  obtain  maximum  benefit. 

In  our  case  the  benefit  will  be  the  savings  of  manpower 
for  other  purposes. 

B.  DATABASE  SYSTEMS  VS  MANUAL  SYSTEMS  IN  HELLENIC  ARMED 

FORCES  FORMATIONS 

Currently  all  of  the  information  required  by  Formation 
Commanders  are  handled  manually  by  the  staff  of  the  formation, 
resulting  in  time  consuming  operations  and  inaccuracies. 

Because  of  the  continuous  changes  concerning  personnel 
and  the  associated  data,  it  is  extremely  difficult  for  the 
staff  personnel  to  keep  track  of  these  changes.  Many  systems 
are  very  inefficient  and  the  Commander  of  the  Formation  does 
not  have  accurate  and  timely  information  in  order  to  make 
fast  decisions. 

These  problems  could  be  solved  by  the  implementation  of 
a  computerized  personnel  database  system. 

A  database  system  has  several  important  advantages  over 
manual  systems,  which  are  described  below. 

First  data  can  be  shared.  This  reduces  the  time  needed 
to  develop  new  systems  or  to  respond  to  various  requests.  In 
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effect,  all  the  necessary  information  can  be  retrieved  from 
existing  data  much  faster  and  with  a  higher  degree  of  accuracy. 


The  second  advantage  of  a  database  system  is  the  elimina¬ 
tion  or  reduction  of  data  duplication  that  can  lead  to  a  lack 
of  data  integrity  in  conflicting  reports. 

The  third  advantage  is  that  the  personnel  involved  in 
manual  personnel  management  could  be  reduced  considerably, 
freeing  manpower  for  other  tasks. 

C.  CONCLUSIONS 

'  In  order  to  increase  the  effectiveness  of  Hellenic  Armed 
Forces,  it  is  essential  that  personnel  management  be  performed 
very  efficiently.  However,  to  manually  manage  all  Armed 
Forces  personnel  is  a  very  tedious,  complex  and  time  consuming 
job.  Increased  personnel  volume  has  also  increased  the  task 
of  management  making  the  operations  more  and  more  complicated. 
Furthermore,  personnel  managers  and  decision  makers  will  need 
reliable  information  faster  than  is  currently  available.  It 
is  almost  impossible  to  get  all  the  information  required  by 
the  personnel  managers  in  the  time  frame  allowed  with  a  manual 
system. 

On  the  other  hand,  an  automated  system  could  result  in 


decreasing  the  number  of  personnel  working  in  personnel  man¬ 
agement  offices,  freeing  some  for  manning  in  other  understaffed 
positions . 


Figure  3.  Levels  of  Abstraction  in  a  Database  System 

3 .  Database  Systems  vs  Traditional  File  Systems 

A  database  management  system  (DBMS)  is  considerably 
different  from  a  traditional  file  system. 

A  traditional  file  processing  approach  is  shown  in 
Figure  4. 
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Figure  4.  Traditional  File  Processing  Approach 


We  observe  that  each  file  program  system  processes  only 
its  own  file. 

Figure  5  shows  a  database  processing  approach. 


Figure  5.  Database  Processing  Approach 

Here  the  DBMS  integrates  the  data  and  makes  it  much 
easier  to  get  useful  information  from  more  than  one  file. 

Data  is  not  monitored  and  manipulated  by  the  individ¬ 
ual  application  programs,  but  instead  by  the  DBMS. 

Such  a  Database  Management  System  is  dBASE  II,  which 
will  be  used  as  the  DBMS  in  our  database  system. 

The  disadvantages  of  the  traditional  file  approach  are: 

(1)  Uncontrolled  redundancy. 

(2)  Inconsistent  data. 

(3)  Inflexibility. 

(4)  Limited  data  sharing. 

(5)  Poor  enforcement  of  standard. 

(6)  Low  programmer  productivity. 
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Figure  7.  Network  Data  Model 

A  relational  data  model  differs  from  HDM  and  NDM 
in  architecture.  Information  is  stored  in  two-dimensional 
tables  which  are  called  files. 

These  tables  which  are  shown  in  Figure  8  have  the 
following  properties; 

(1)  Each  column  contains  values  about  the  same  attribute 

(2)  Each  column  has  a  distinct  name. 

(3)  Each  row  is  distinct. 

(4)  The  sequence  of  the  rows  is  immaterial. 


Figure  8.  Relational  Data  Model 

The  above  scheme  deals  with  a  parts  inventory  system 
Information  in  the  tables  is  accessed  by  the  user  based  on 
any  desired  relationship. 

E.  dBASE  II  CONCEPTS 

dBASE  II  is  a  relational  database  management  system. 
However,  since  several  files  are  generally  used  in  a  given 
application  and  the  relationship  between  information  in  dif¬ 
ferent  files  is  not  stored  in  the  system,  dBASE  II  is  not  a 
true  database  management  system  in  the  strictest  sense  of 


the  word.  dBASE  II  is  more  like  a  file  management  system 
with  relational  features  added.  dBASE  II  does  contain  its 
own  programming  language,  permitting  a  user  to  develop  extremely 
powerful  and  complex  programs  that  meet  demanding  applications 
like  general  personnel,  accounting  and  inventory  control. 

1 .  Features  of  dBASE  II  {Ref.  4] 

The  most  important  features  of  dBASE  II  are: 

a.  Independence  of  programs  and  data.  Changes  in  file 
structures  do  not  affect  programs. 

b.  Data  can  be  easily  updated. 

c.  Sorting  and  indexing  capabilities. 

d.  Easy  creation  of  reports  by  the  report  generator 
facility,  or  under  program  control. 

e.  Very  high-level  built-in  language  which  supports 
structured  programming. 

2 .  Limitations  of  dBASE  II  [Ref.  3] 

a.  dBASE  II  allows  only  two  files  to  be  open  at 

a  time.  This  creates  difficulties  which  can  be  overpassed 
by  using  special  techniques  but  the  system  will  slow  down. 

b.  dBASE  II  allows  only  32  fields  per  record,  which 
is  enough  for  most  applications,  and  the  maximum  number  of 
characters  permitted  per  record  is  1000. 

c.  Each  field  can  be  up  to  254  characters  long. 

d.  dBASE  II  allows  16  programs  to  be  run  at  any  given 
time,  reduced  by  the  number  of  data  files  in  use.  For 
example,  if  we  have  2  files  in  use,  then  14  programs  are 


allowed. 


The  advantages  of  the  database  processing  approach  are 


(1)  Minimal  data  redundancy. 

(2)  Consistency  of  data. 

(3)  Integration  of  data. 

(4)  Sharing  of  data. 

(5)  Enforcement  of  standard. 

(6)  Ease  of  application  programs. 

(7)  Uniform  security,  privacy  and  integrity  constraints. 

(8)  Data  accessibility  and  responsiveness. 

(9)  Data  independence. 

(10)  Reduced  program  maintenance. 

4 .  Models  of  Database  Management  Systems 

A  MODEL  is  a  representation  of  real-world  objects, 
events  and  their  association. 

A  DATA  MODEL  is  an  abstract  representation  of  the  data 
about  entities,  events,  activities  and  their  associations. 

The  purpose  of  data  models  is  to  represent  data  in  under¬ 
standable  terms.  The  main  data  models  in  use  today  are  the 
hierarchical  data  model  (HDM) ,  network  data  model  (NDM)  and 
the  relational  data  model  (RDM)  [Ref.  4] .  Since  the  hier¬ 
archical  model  is  a  special  case  of  the  network  model,  actually 
there  are  two  types.  A  complete  discussion  of  these  models 
is  beyond  the  scope  of  this  thesis  but  a  brief  overview  is 
important  as  an  introduction  to  dBASE  II. 

In  a  hierarchical  or  network  system,  information  is  stored 
in  a  structure  that  looks  very  much  like  a  tree  (Fig.  6). 


Model 


Assembly 


Subassembly 


Subassembly 


Figure  6.  Hierarchical  Data  Model 


An  entity  is  composed  of  various  assemblies  and  each 
assembly  is  composed  of  various  subassemblies  which  in  turn 
are  composed  of  parts.  Each  part  is  a  child  of  the  parent 
assembly  or  subassembly  that  owns  it.  In  a  hierarchical 
model  no  child  can  have  more  than  one  parent. 

In  a  Network  model  a  child  can  have  more  than  one 
parent  as  shown  in  Figure  7. 

It  represents  data  as  a  set  of  record  types  and 
pairwise  relationships  between  record  types. 


Database  systems  have  become  important  tools  for  retriev¬ 
ing  timely  and  accurate  information  and  is  expected  to  provide 


its  user  with  the  required  information  within  a  specified 
time.  Therefore,  a  standard  database  system  should  be  devel¬ 
oped  for  efficient  personnel  management  in  the  Hellenic  Armed 
Forces  Formations. 

D.  GENERAL  OVERVIEW  OF  A  DATABASE  SYSTEM 

We  begin  with  the  definition  and  some  of  basic  terminol¬ 
ogy  of  databases  and  then  discuss  the  architecture  and  types 
of  data  models. 

1 .  Definition  and  Basic  Terminology 

Figure  2  shows  the  relationship  between  the  basic 
terms  of  a  database,  which  are  explained  below. 
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Figure  2.  Relationship  Between  Basic  Terms  of  a  Database 


a.  Database 


A  shared  collection  of  interrelated  data  designed 
to  meet  the  varied  information  needs  of  an  organization. 

b.  Database  Management  System  (DBMS) 

A  software  system  that  performs  all  user's  request 
(update,  retrieval)  for  data. 

c.  File 

Is  a  collection  of  records  concerning  entities 
of  the  same  type. 

d.  Record 

Is  a  collection  of  data  concerning  one  entity  of 
a  file.  Each  record  has  an  identical  format. 

e.  Field 

A  field  is  part  of  the  record  and  is  the  smallest 
unit  of  named  data. 

2 .  Architecture  for  a  Database  System 

The  architecture  is  divided  into  three  general  levels: 
internal,  conceptual,  and  external  [Ref.  2] .  Figure  3  shows 
the  standard  viewpoints  regarding  the  three  levels. 

In  Figure  3  a  single  database,  which  may  be  one  of 
many  databases  using  the  same  DBMS,  is  viewed  at  three  differ¬ 
ent  levels.  Only  the  physical  database  exists.  The  concep¬ 
tual  database  is  an  abstract  representation  of  the  physical 
database  and  the  views  are  either  abstractions  or  portions 
of  the  conceptual  database. 


II.  ANALYSIS  PHASE 


In  this  chapter  the  analysis  phase  for  our  personnel 
database  system  is  discussed.  This  phase  includes  the  defi¬ 
nition  of  the  system  objectives,  the  definition  of  the  out¬ 
put  information  needed  to  meet  these  objectives,  the 
definition  of  output  forms,  and  definition  of  input  infor¬ 
mation  needed  to  obtain  the  desired  output. 

A.  SYSTEM  OBJECTIVES 

As  we  stated  in  the  previous  chapter  personnel  management 
in  Hellenic  Armed  Forces  Formations  is  handled  manually. 

This  results  in  time  consuming  operations,  inefficiency,  and 
inaccuracy,  which  in  turn  results  in  a  need  for  additional 
personnel,  leaving  other  serious  positions  unmanned.  In 
addition,  decision  making  may  be  late  which  could  result  in 
disorder  as  far  as  personnel  management  is  concerned. 

From  the  above  discussion  it  is  evident  that  a  computer¬ 
ized  system  for  handling  personnel  is  needed. 

With  such  a  system  it  will  be  possible  to  have  any  infor¬ 
mation  concerning  personnel  updated  at  any  time,  with  less 
effort  and  maximum  accuracy.  This  will  result  in  better 
decision  making,  faster  operations  and  a  savings  of  personnel 
for  other  purposes. 

More  specifically  we  will  consider  the  following  objectives 


for  the  system  [Ref.  7]. 


(1)  Application  development  must  be  easier,  cheaper, 
faster  and  more  flexible. 

(2)  The  data  may  have  multiple  uses. 

(3)  Clarity. 

(4)  Ease  of  use. 

(5)  Flexible  usage. 

(6)  Ease  of  change. 

(7)  Low  cost. 

(8)  Performance. 

(9)  Privacy. 

(10)  Availability. 

(11)  Reliability. 

B.  OUTPUT  INFORMATION 

Our  database  system  can  be  applied  to  all  the  personnel 
of  a  formation  but  for  the  purpose  of  this  thesis  we  will 
include  only  the  officers. 

To  meet  the  above  objectives  the  following  output  infor 
mation  is  needed: 

(1)  List  of  officers  in  alphabetical  order  including 
serial  number,  rank,  unit,  and  report  date. 

(2)  List  of  officers  ordered  by  rank  including  service 
entry  date,  unit  and  duty. 

(3)  List  of  units  with  their  officers. 

(4)  List  of  officers  with  nonmilitary  studies. 

(5)  List  of  officers  who  speak  foreign  languages. 

(6)  List  of  officers  including  marital  status. 

(7)  List  of  officers  with  service  time  in  current  unit 

and  total  service  time. 
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(8)  List  of  officers  with  their  addresses  and  phone 
numbers . 

The  above  lists  will  be  issued  regularly  every  month, 
but  they  will  also  be  available  at  any  time. 

C.  INPUT  INFORMATION 

In  order  to  keep  track  of  all  the  officers  belonging  to 
a  Formation  we  must  consider  the  following: 

Each  officer  has  a  serial  number,  rank,  duty,  and  he 
belongs  to  a  unit.  We  need  to  know  his  total  service  time, 
and  the  service  time  in  current  unit,  as  well  as  his  marital 
status  and  where  he  lives,  in  order  to  respond  to  queries 
in  the  case  of  emergencies. 

Each  unit  has  several  officers  and  is  identified  by  a 
code  number  which  is  distinct  for  Army  and  Navy  units. 

For  security  purposes  the  personnel  data  contained 
within  this  thesis  is  purely  artificial. 

In  addition,  we  need  to  know,  the  education  of  each 
officer,  including  non-military  studies  and  foreign  language 
knowledge.  For  the  purpose  of  this  thesis,  we  assume  that 
each  officer  speaks  at  most  one  foreign  language  besides 
his  mother  tongue. 

A  detailed  description  and  the  input  information  included 
in  the  files,  which  will  be  created  to  support  the  above 
needs,  are  provided  in  the  design  phase. 


III.  DESIGN  PHASE 


In  this  phase  the  functions  of  the  system  are  defined, 
the  files  of  the  database  are  designed  and  a  collection  of 
programs  is  defined,  to  support  each  function. 

A.  SYSTEM  FUNCTIONS 

The  system  is  separated  into  three  functional  entities 
as  follows: 

1 .  Update  Operations 

This  function  allows  the  user  to  enter,  delete  and 
modify  records  in  all  the  supporting  files.  These  operation 
are  performed  daily. 

2 .  Report  Generators 

This  function  is  for  retrieving  all  the  necessary 
information  from  our  database  on  a  monthly  basis,  or  upon 
request. 

3 .  Miscellaneous 

This  function  will  include  the  following: 

a.  When  a  user  enters  the  system  to  do  a  specific 
job  a  record  is  automatically  created  containing  the  name 
of  who  makes  the  change,  the  date  of  the  change,  and  the 
kind  of  the  job.  This  file  can  be  printed  and  deleted  as 
necessary  to  monitor  changes. 

b.  When  an  officer  is  to  be  deleted  from  the  MASTER 
file,  before  the  deletion  operation  is  performed,  some  data 


concerning  this  officer  will  be  transferred  to  a  statistical 
file  including  the  serial  number,  the  name,  the  unit,  the 
rank,  the  report  date  in  the  unit,  and  the  date  of  deletion. 
This  file  will  be  available  yearly  or  upon  request. 

c.  A  screen  display  or  printer  output  for  fast 
retrieval  of  the  data  concerning  an  officer. 

The  functional  blocks  of  the  system  are  shown  in 
Figure  9 . 


Figure  9.  Functional  Blocks  of  the  System 
B.  FILE  DESIGN 

To  support  the  above  functions  the  following  files  with 
the  corresponding  structures  were  created.  The  names  of  the 
files  and  fields  are  the  ones  that  are  used  in  our  programs. 

1 .  Master  File 

It  is  the  main  file  for  our  system  containing  the 
necessary  information  for  each  officer. 


Structure 

for  file: 

MASTER 

FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

4 

02 

NAME 

C 

16 

03 

RANK 

C 

2 

04 

UNIT 

C 

4 

05 

SERENTRY 

N 

6 

06 

REPTDATE 

N 

6 

07 

DUTY 

C 

2 

08 

EDUCAT 

C 

2 

09 

DEGREE 

C 

1 

10 

FORLANG 

C 

2 

11 

MARSTAT 

C 

1 

12 

CHILDREN 

C 

1 

13 

ADDRESS 

C 

20 

14 

Primary 

1.  Units 

key: 

File 

PHONE 

SERNO 

C 

7 

Structure 

for  file: 

UNITS 

FIELD 

NAME 

TYPE 

WIDTH 

01 

CODE 

C 

4 

02 

TITLE 

C 

12 

03 

LOCATION 

C 

10 

Primary  key:  CODE 


Ranks  File 


Structure  for  file:  RANKS 


FIELD 

NAME 

TYPE 

WIDTH 

01 

CODE 

C 

2 

02 

ARMYNAME 

C 

4 

03 

NAVYNAME 

C 

4 

Primary 

key:  CODE 

i.  Duties  File 

Structure  for  file: 

DUTIES 

FIELD 

NAME 

TYPE 

WIDTH 

01 

CODE 

C 

2 

02 

NAME 

C 

20 

Primary 

key:  CODE 

1.  Forlanqs  File 

Structure  for  file: 

FORLANGS 

FIELD 

NAME 

TYPE 

WIDTH 

01 

CODE 

C 

2 

02 

NAME 

C 

12 

Primary 

key :  CODE 

Sciences  File 

Structure  for  file:  SCIENCES 
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FIELD 

NAME 

TYPE 

WIDTH 

01 

CODE 

C 

2 

02 

NAME 

C 

15 

Primary  key: 

CODE 

7 .  Monitor  File 

It  is  a  file  that  keeps  track  of  who  does  what  and 

when. 

Structure  for  file:  MONITOR 


FIELD 

NAME 

TYPE 

WIDTH 

01 

DATE 

C 

8 

02 

NAME 

C 

16 

03 

JOB 

C 

12 

04 

FLE:REPT 

C 

12 

05 

NUMREC 

N 

3 

8 .  Statistic  File 

It  is  the  file  for  statistical  information  for 
each  deleted  officer. 


Structure 

for  file: 

STATISTIC 

FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

4 

02 

NAME 

C 

16 

03 

RANK 

C 

2 

04 

UNIT 

C 

4 

05 

REPTDATE 

C 

8 

06 

DELDATE 

C 

8 

30 


structure  for  file:  TEMPOR 


FIELD 

NAME 

TYPE 

WIDTH 

01 

PASSWORD 

C 

5 

02 

SELECT 

C 

2 

03 

COUNTER 

C 

3 

C.  EXPLANATION  OF  FIELDS 

The  explanation  of  the  fields,  where  not  obvious,  is 
given  below: 

1 .  Master  File 

a.  SERNO:  The  serial  number  of  the  officer. 

b.  SERENTRY:  The  date  he  entered  the  military 

academy . 

c.  REPTDATE:  The  date  he  was  positioned  in  the 
current  unit. 

d.  EDUCAT:  His  education  besides  the  military 

studies . 

e.  FORLANG:  Foreign  languages  he  speaks. 

f.  MARSTAT;  His  marital  status. 

2 .  Monitor  File 

a.  FLE:REPT:  The  file  the  user  works  with,  or  the 
kind  of  report  he  prints. 

3 .  Statistic  File 

a.  SERNO,  REPTDATE:  The  same  as  above. 

b.  DELDATE:  The  date  of  deletion  from  the  unit. 


D.  DATA  FLOW  DIAGRAM 

The  update  operations  are  performed  daily  to  update 
all  the  files  of  the  system.  These  operations  include 
insertion  and  deletion  of  records,  as  well  as  modifications 
in  one  or  more  fields.  The  output  of  the  update  operations 
are  the  same  files  updated  from  the  transactions  of  the  day 
These  files  are  then  used  as  input  by  the  report  generator 
function,  to  obtain  the  various  reports. 


Figure  10.  Data  Flow  Diagram  for  the  Personnel 
Database  System 


E .  SUPPORTING  PROGRAMS 

The  functional  blocks  we  have  already  defined  are 
selected  by  the  user  from  the  main  menu  of  the  system.  The 
control  is  then  transferred  to  the  corresponding  submenu 
(one  for  each  function) .  From  the  submenus  the  appropriate 
job  is  selected  from  an  option  list.  The  main  menu,  submenus, 
and  programs  form  a  hierarchical  relationship.  The  diagram 
of  this  relationship  is  the  program  map.  The  program  map 
for  the  personnel  database  system  is  shown  in  Figure  11. 

All  the  update  operations,  reports  and  printing,  as  well 
as  deletion  of  MONITOR  and  STATISTIC  files  are  selected  from 
SUBMENUl,  SUBMENU2,  and  SUBMENUS  respectively. 

F.  CODE  SYSTEM  FOR  THE  PERSONNEL  DATABASE 

1.  Codes  for  Ranks 


CODE 

ARMY 

NAVY 

01 

GENERAL  (GEN) 

ADMIRAL  (ADM) 

02 

LT  GENERAL  (LTG) 

VICE  ADMIRAL  (VADM) 

03 

MAJOR  GENERAL  (MG) 

REAR  ADMIRAL  (RADM) 

04 

BRIG  GENERAL  (BG) 

COMMODORE  (COMD) 

05 

COLONEL  (COL) 

CAPTAIN  (CAPT) 

06 

LT  COLONEL  (LTC) 

COMMANDER  (CDR) 

07 

MAJOR  (MAJ) 

LT  COMMANDER  (LCDR) 

08 

CAPTAIN  (CPT) 

LIEUTENANT  (LT) 

09 

FIRST  LIEUTENANT  (ILT) 

FIRST  LIEUTENANT  (ILT) 

10 


SECOND  LIEUTENANT  (2LT) 


ENSIGN  (ENS) 


2.  Codes  for  Units 


CODE 

TITLE 

1000 

1st  Inf  Div 

1101 

1st  Inf  Bn 

1102 

2nd  Inf  Bn 

1103 

3rd  Inf  Bn 

1104 

4th  Inf  Bn 

1105 

5th  Inf  Bn 

1206 

1st  Arty  Bn 

1207 

2nd  Arty  Bn 

1308 

Armour  Bn 

1409 

Engineers  Bn 

1510 

Signals  Bn 

1611 

Sup/Trans  Bn 

2000 

Navy  Forces 

2101 

DD  Squadron 

2202 

LST  Squadron 

2103 

DD  Miaoulis 

2104 

DD  Kanaris 

2105 

DD  Themis 

2206 

LST  Argo 

2207 

LST  Rhodes 

The  meaning  of  the  four  digits  representing  the 
codes  of  the  units  it  as  follows: 
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1ST 

digit 

1: 

ARMY 

2: 

NAVY 

2ND 

digit 

It  distinguishes  between  the  various  kinds  of  units 

as  follows: 

ARMY 

0: 

HEADQUARTERS 

1: 

INFANTRY 

2: 

ARTILLERY 

3: 

ARMOUR 

4: 

ENGINEERS 

5: 

SIGNAL 

6: 

SUPPLY-TRANSPORTATION 

NAVY 

0: 

COMMAND 

1: 

DD  SQUADRON 

2: 

LST  SQUADRON 

The  3rd 

and  4th  digit  specify  each  unit. 

3.  Codes  for  Duties 

CODE 

NAME 

01 

COMMANDER 

02 

DTY  COMMANDER 

03 

CHIEF  OF  STAFF 

04 

1st  OFFICE  MANAGER 

05 

2nd  OFFICE  MANAGER 

06 

3rd  OFFICE  imNAGER 

07 

4th  OFFICE  MANAGER 

08 

COMPANY  COMMANDER 

09 

BATTERY  COMMANDER 

10 

COMMANDING  OFFICER 

11 

EXECUTIVE  OFFICER 

12 

ASW  OFFICER 

13 

NAVIGATION  OFFICER 

14 

COMMUNICATION  OFFICER 

15 

CIC  OFFICER 

16 

Codes  for  Sciences 

-ADJUTANT 

CODE 

NAME 

01 

MATHEMATICS 

02 

PHYSICS 

03 

CHEMISTRY 

04 

AERONAUTICS 

05 

EL/ENGINEERING 

06 

MECH/ENGINEERING 

07 

ECONOMICS 

08 

OPER/ RESEARCH 

09 

INFO/SYSTEMS 

10 

COMP  SYSTEMS 

11 

COMP  SCIENCE 

12 


MANAGEMENT 


12 

BULGARIAN 

13 

KOREAN 

14 

DANISH 

15 

SWEDISH 

16 

DUTCH 

Codes  for  Marital  Status 


IMPLEMENTATION  PHASE 


A.  MAIN  MENU  AND  SUBMENUS  OF  THE  SYSTEM 

1 .  Mainmenu 

This  program  controls  the  whole  operation  of  the 
system,  and  is  called  from  another  program  called  BEGIN, 
which  is  the  only  program  the  user  calls  by  name.  The  pro¬ 
gram  BEGIN  also  sets  drive  B  to  be  the  default  drive.  After 
initializing  basic  dBASE  II  functions  the  program  MAINMENU 
calls  another  program  called  PASSWORD  which  is  for  aborting 
unauthorized  users,  and  then  it  proceeds  by  displaying  the 
front  page  of  the  system.  Then  it  displays  on  the  screen 
the  main  menu  of  the  system,  and  pauses  waiting  for  the  user 
to  make  his  choice  which  is  stored  in  the  variable  'choice'. 
Then  a  CASE  statement  permits  the  program  to  branch  to  the 
corresponding  SUBMENU,  or  exit  either  to  the  operating  sys¬ 
tem,  or  to  dBASE  II.  If  the  user  selects  a  wrong  choice, 
then  the  program  prints  an  error  message,  rings  the  bell, 
and  redisplays  the  screen.  This  is  performed  by  a  WHILE 
loop  using  the  boolean  value  T. 

2 .  Password 

This  program  is  called  by  the  MAINMENU  once  at  the 
beginning.  Each  user  has  a  password  to  enter  the  system. 

If  the  password  is  the  right  one,  the  user  is  allowed  to 
continue,  otherwise  the  program  gives  one  more  change.  If 


the  password  is  wrong  again,  the  program  automatically 
exits  to  dBASE  II,  displaying  the  appropriate  message. 

During  the  execution  of  this  program,  we  have  to 
store  somewhere  the  password  to  be  used  by  the  MONITR  pro¬ 
gram,  for  monitoring  the  changes.  This  is  done  by  using  a 
file  called  TEMPOR  with  three  fields,  password,  select,  and 
counter.  This  file  contains  only  one  record,  which  is  modi¬ 
fied  properly  during  execution  of  the  programs  PASSWORD, 
and  SUBMENUS.  The  MONITR  program  is  called  from  the  pro¬ 
grams  INSERT,  DELETE,  MODIFY,  REPORTS,  and  MISCELLANEOUS. 

3 .  Submenus 

All  three  SUBMENUS  operate  with  the  same  logic  as 
the  MAINMENU.  The  screen  displays  guide  the  user  in  what  to 
do  in  each  case.  These  programs  also  store  in  the  second 
field  of  the  file  TEMPOR,  the  selection  made  by  the  user. 

The  listings  of  the  programs  are  given  in  the  next 


PROGRAM  MAINMENU  *********** 

*  This  program  controls  the  whole  operation  of  the  system 

*  Initialize  basic  functions 

SET  TALK  OFF 
SELECT  PRIMARY 
SET  FORMAT  TO  SCREEN 
SET  PRINT  OFF 
SET  CONSOLE  ON 
DO  password 
DO  frontpage 
DO  setdate 
DO  WHILE  T 
ERASE 

@  1,52  SAY  DATEO 

@  2, 13  SAY  "************************************************" 

@  3,  13  SAY  "*********************************************^**" 


®  4, 13  SAY 

@  5,  13  SAY  "**  MAIN  MENU  **'■ 

@  6,13  SAY  "**  What  do  you  wsunt  to  do? 

®  7,  13  SAY  ''*******************************************^*rtf**" 
9  8,  13  SAY 

@  9,13  SAY  0  =  EXIT  TO  OPERATING  SYSTEM 

@  10,13  SAY  "**  (When  you  are  finished) 

@  11,13  SAY  "**  1  =  UPDATE  OPERATIONS 

@  12,13  SAY  ( Insert, delete, modify  records)  **" 

@  13,  13  SAY  •'**  2  =  REPORT  GENERATORS 

®  14,13  SAY  (Reports  available)  **" 

@  15, 13  SAY  3  =  MISCELLANEOUS 

@  16,13  SAY  (Files  statistics) 

@  17,13  SAY  "**  4  =  EXIT  TO  dBASE 

@  18,13  SAY  "**  (For  programmers  only) 


@  19,  13  SAY  "♦♦*********************************;<c***********:»5" 
@  20,  13  SAY  "*****************************************:lti:^!.^i:lf.^itiiti'' 
@  23, 13  SAY  "  Enter  the  corresponding  number 

STORE  "  ■■  TO  choice 
WAIT  TO  choice 

*  Accept  choice  and  branch  to  corresponding  submenu 


DO  CASE 

CASE  choice  =  ”0“ 
QUIT 

CASE  choice  =  "1" 
DO  submenu  1 
CASE  choice  =  "2" 
DO  submenu2 
CASE  choice  =  "3" 
DO  submenu3 
CASE  choice  =  ”4'' 
CANCEL 
OTHERWISE 
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Print  an  error  message  and  give  an  other  chance 


ERASE 

®  10,  17  SAY  choice+"  IS  AN  ILLEGAL  CHOICE 
SET  TALK  OFF 
?  CHR(7) 

STORE  1  TO  del 
DO  WHILE  del  <  40 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE  T 


-  TRY  AGAIN' 


PROGRAM  PASSWORD  ******** 

* 

*  This  program  is  for  aborting  unauthorized  users 

* 

ERASE 

@  10,22  SAY  "*****  ENTER  PASSWORD  *****" 

STORE  "  "  TO  pasword 

STORE  0  TO  count 
STORE  T  TO  Okey 
DO  WHILE  Okey 

SET  CONSOLE  OFF 
ACCEPT  TO  pasword 
SELECT  PRIMARY 
USE  TEMPOR 
DELETE  ALL 
PACK 

APPEND  BLANK 

REPLACE  password  WITH  pasword 
USE 

IF  pasword  =  "QWERT“  .OR.  pasword  =  "ASDFG" 

SET  CONSOLE  ON 

@  15,25  SAY  "OK,  You  may  continue” 

SET  TALK  OFF 
STORE  1  to  del 
DO  WHILE  del  <  25 

STORE  del+1  to  del 
ENDDO 
RETURN 
ELSE 

SET  CONSOLE  ON 
ERASE 
?  CHR(7) 

@  10,22  SAY  "WRONG  PASSWORD  -  TRY  AGAIN" 
STORE  count +1  TO  count 
IF  count  =  2 
ERASE 
DO  monitr 

@  10,25  SAY  "**  UNAUTHORIZED  USER  **" 

SET  DEFAULT  TO  A 
CANCEL 
ELSE 

STORE  "  "  TO  pasword 

END  IF 
ENDIF 

ENDDO  WHILE 


PROGRAM  FRONTPAGE  ******** 

*  This  program  prints  the  main  heading  of  the  system 
ERASE 

d  1,22  SAY  "*******************************" 
d  2,22  SAY  ***********************){('• 

9  3,22  SAY  ''****  ***********************)(^" 

9  4,22  SAY  "  ********************" 

d  5,22  SAY  "****  ***********************}ii:" 

@  6, 22  SAY  "****  ***********************:ti" 

@  7,22  SAY  "*******************************" 

(9  8,22  SAY  “*******************************" 

@  9,22  SAY  "*******************************" 

<S  10, 22  SAY  "*******************************" 

@  12, 15  SAY  "****************************************^****" 
@  13, 15  SAY  "*********************************************" 


®  14,15  SAY  "**  **" 
@  15,15  SAY  A  PERSONNEL  DATABASE  SYSTEM  *♦" 
@  16, 15  SAY  "**  FOR 

@  17,  15  SAY  ■'**  HELLENIC  ARMED  FORCES  FORMATIONS  **" 
®  18,  15  SAY  "** 


@  19,  15  SAY  "****************************************>^>t(*)i^)ti" 
®  20,  15  SAY  "  ****************************************iii***i(f." 
SET  TALK  OFF 
STORE  1  TO  delay 
DO  WHILE  delay  <  80 

STORE  delay+1  TO  delay 
ENDDO  WHILE 
RETURN 


PROGRAM  SETDATE  ******** 


*  This  program  asks  the  user  to  set  the  current  date 
ERASE 

SET  TALK  OFF 

STORE  ••  TO  mdate 

STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

®  12, 12  SAY  "ENTER  DATE  (MM/DD/YY)  "  GET  mdate; 
PICTURE  "99/99/99" 

READ 

IF  VAL($( mdate, 1,2))  <  1; 

.OR.  VAL( $(mdate, 1, 2) )  >  12; 

•OR.  VAL($(mdate,4, 2))  <  1; 

.OR.  VAL{$(mdate, 4, 2) )  >  31; 

.OR.  VAL($(mdate,  7,2))  <>  85 
STORE  "  "  TO  mdate 

@  22,15  SAY  "INVALID  DATE,  PLEASE  RETRY- 
STORE  1  TO  del 
DO  WHILE  del  <  35 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
ELSE 

STORE  F  TO  continue 
SET  DATE  TO  &mdate 
ENDIF 

ENDDO  WHILE 
RETURN 


********  PROGRAM  MONITR  ******** 


*  This  program  adds  a  record  in  the  file  MONITOR  each  time  a  user 

*  enters  the  system,  to  keep  track  of  who  does  what  and  when. 

ERASE 

STORE  "  ••  TO  mjob 

STORE  "  "  TO  mfleirept 

*  Use  the  fields  'password'and  'select'  of  file  TEMPOR  and  store 

*  the  appropriate  information  to  temporary  memory  variables 

SELECT  SECONDARY 

USE  tempor 

IF  password  =  "QWERT" 

STORE  "Tsagaris  Panag"  TO  mname 

ELSE 

IF  password  =  "ASDFG" 

STORE  "Karaiskos  Const"  TO  mn^une 
ELSE 

STORE  "Unauthorized  "  TO  mname 
END  IF 

END  IF 

DO  CASE 

CASE  select  =  "11" 

STORE  "Insertion  "  TO  mjob 

STORE  "Master  "  TO  mflerrept 

CASE  select  =  "12" 

STORE  "Insertion  "  TO  mjob 

STORE  "Units  "  TO  mflerrept 

CASE  select  =  "13" 

STORE  "Insertion  "  TO  mjob 

STORE  "Ranks  "  TO  mflerrept 

CASE  select  =  "14" 

STORE  "Insertion  "  TO  mjob 

STORE  "Duties  "  TO  mflerrept 

CASE  select  =  "15" 

STORE  "Insertion  "  TO  mjob 

STORE  "Forlangs  "  TO  mflerrept 

CASE  select  =  "16" 

STORE  "Insertion  "  TO  mjob 

STORE  "Sciences  "  TO  mflerrept 

CASE  select  =  "21" 

STORE  "Deletion  "  TO  mjob 

STORE  "Master  "  TO  mflerrept 

CASE  select  =  "22" 

STORE  "Deletion  "  TO  mjob 

STORE  "Units  "  TO  mflerrept 

CASE  select  =  "23" 

STORE  "Deletion  "  TO  mjob 

STORE  "Ranks  "  TO  mflerrept 

CASE  select  =  "24" 

STORE  "Deletion 
STORE  "Duties 


"  TO  mjob 
"  TO  mflerrept 


CASE  select  =  ‘■25" 

STORE  "Deletion  "  TO  mjob 

STORE  "Forlangs  "  TO  mfle:rept 

CASE  select  =  "26" 

STORE  "Deletion  "  TO  mjob 

STORE  "Sciences  "  TO  mflerrept 

CASE  select  =  "31" 

STORE  "Modification"  TO  mjob 
STORE  "Master  "  TO  mfle:rept 

CASE  select  =  "32" 

STORE  "Modification"  TO  mjob 
STORE  "Units  "  TO  mflerrept 

CASE  select  =  "33" 

STORE  “Modification"  TO  mjob 
STORE  "Ranks  "  TO  mfletrept 

CASE  select  =  "34" 

STORE  "Modification"  TO  mjob 
STORE  "Duties  "  TO  mflerrept 

CASE  select  =  "35" 

STORE  "Modification"  TO  mjob 
STORE  "Forlangs  "  TO  mflerrept 

CASE  select  =  "36“ 

STORE  "Modification"  TO  mjob 
STORE  "Sciences  "  TO  mflerrept 
CASE  select  =  "1" 

IF  sub3 

STORE  "Printing  "  TO  mjob 

STORE  "Monitor  "  TO  mflerrept 

ELSE 

STORE  "Printing  "  TO  mjob 

STORE  "Reportl  "  TO  mflerrept 

END  IF 

CASE  select  =  "2“ 

IF  sub3 

STORE  "Printing  "  TO  mjob 

STORE  "Statistic  "  TO  mflerrept 

ELSE 

STORE  "Printing  "  TO  mjob 

STORE  "Report2  "  TO  mflerrept 

END  IF 

CASE  select  =  "3" 

IF  sub3 

STORE  "Deletion  "  TO  mjob 

STORE  "Monitor  "  TO  mflerrept 

ELSE 

STORE  "Printing  ”  TO  mjob 

STORE  "Reports  "  TO  mflerrept 

END  IF 

CASE  select  =  "4" 

IF  sub3 

STORE  "Deletion  ”  TO  mjob 

STORE  "Statistic  "  TO  mflerrept 

ELSE 

STORE  "Printing  ”  TO  mjob 
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"  TO  mflerrept 


STORE  "Report4 
END  IF 


CASE  select  =  "5 
IF  sub3 


STORE  "Screen  Disp 

TO  mjob 

STORE  "Master 

•* 

TO  mflerrept 

ELSE 

STORE  "Printing 

II 

TO  mjob 

STORE  "Reports 

'• 

TO  mfle:rept 

END  IF 

CASE  select  =  "6" 

STORE  "Printing 

TO 

mjob 

STORE  "Reports 

TO 

mf le: rept 

CASE  select  =  "7" 

STORE  "Printing 

TO 

mjob 

STORE  "Report? 

TO 

mf le: rept 

CASE  select  =  "8" 

STORE  "Printing 

TO 

mjob 

STORE  "Reports 

TO 

mf le: rept 

ENDCASE 

STORE  counter  TO  mnumrec 

*  Append  the  record  to  the  MONITOR  file 

SELECT  SECONDARY 

USE  monitor 

APPEND  BLANK 

REPLACE  date  WITH  DATE( ) 

REPLACE  name  WITH  mname 
REPLACE  job  WITH  mjob 
REPLACE  fle:rept  WITH  mfle:rept 
REPLACE  numrec  WITH  mnumrec 
USE 

SELECT  PRIMARY 
RETURN 


******  PROGRAM  SUBMENU  1  ******** 


*  This  program  controls  the  Update  Operations 

*  of  the  system 

ERASE 

STORE  "  "  TO  select 

DO  WHILE  T 
ERASE 

9  2,50  SAY  DATEO 

9  3, 15  SAY  "********************************************” 


9  4,15  SAY  *" 

9  5,15  SAY  "*  S  U  B  M  E  N  U  1  *" 

9  6,  15  SAY  UPDATE  OPERATIONS  ♦" 

9  7,15  SAY  "* 

9  0,  15  SAY  ********************************************** 
®  9,15  SAY  OPTIONS  FILES  *" 

@  10,  15  SAY  "*  -  - 

9  11,15  SAY  "*  1=MASTER  *" 

9  12,15  SAY  0=Exit  to  MAIN  MENU  2=UNITS 

@  13,  15  SAY  l  =  Insertion  3=RANKS 

9  14,  15  SAY  2=Deletion  4=DUTIES  *” 

9  15,15  SAY  "*  3=Modification  5=FORLANGS  *" 

9  16,  15  SAY  6=SCIENCES 

9  17,15  SAY 


9  18,  15  SAY  "********************************************'' 

9  20, 15  SAY  "  Make  the  appropriate  selection  by  pressing" 

9  21,15  SAY  "the  option  number  first  and  then  the  file 
9  22, 15  SAY  "number.  For  example,  if  you  want  to  insert 
@  23,15  SAY  "records  in  file  UNITS,  press  12. 

ACCEPT  TO  selection 

*  Store  selection  to  the  field  select  of  the  file  TEMPOR 

*  in  order  to  be  used  by  the  monitor  program 

SELECT  PRIMARY 
USE  tempo r 

REPLACE  select  WITH  selection 
USE 

*  Accept  the  selection  amd  branch  to  the  corresponding  program 


DO  CASE 

CASE  selection 
RETURN 

CASE  selection 
DO  insertl 
CASE  selection 
DO  insert2 
CASE  selection 
DO  insert3 
CASE  selection 
DO  insert4 
CASE  selection 


"0" 

"11" 

"12" 

"13" 

"14" 

"15" 


“16 


DO  inserts 

CASE  selection  = 

DO  inserts 

CASE  selection  =  "21" 

DO  deletel 

CASE  selection  =  "22" 

DO  delete2 

CASE  selection  =  "23" 

DO  deletes 

CASE  selection  =  "24" 

DO  delete4 

CASE  selection  =  "25" 

DO  deletes 

CASE  selection  =  "26" 

DO  deletes 

CASE  selection  =  “31" 

DO  modifyl 

CASE  selection  =  "32" 

DO  modify2 

CASE  selection  =  "33" 

DO  modifyS 

CASE  selection  =  "34" 

DO  modify4 

CASE  selection  =  "35" 

DO  modifyS 

CASE  selection  =  "36" 

DO  modifyS 

OTHERWISE 
?  CHR(7) 

ERASE 

@  10,  17  SAY  selection+"  IS  AN  ILLEGAL  SELECTION’ 
@  10,43  SAY  ",  PLEASE  TRY  AGAIN" 

SET  TALK  OFF 
STORE  1  TO  delay 
DO  WHILE  delay  <  40 

STORE  delay+1  TO  delay 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE  T 


*♦*)»{****  PROGRAM  SUBMENU2  ******** 

*  This  program  controls  the  Report  Generators 

*  function  of  the  system 


STORE  T  TO  noexit 
STORE  F  TO  sub3 
DO  WHILE  noexit 
SET  PRINT  OFF 
ERASE 

@  1,50  SAY  DATEO 

Q  2,13  SAY 


@  3,  13  SAY  •■*  S  U  B  M  E  N  U  2  *  " 
@  4,  13  SAY  REPORTS  AVAILABLE  >«'■ 
@  5^  13  SAY  " 

@  6,  13  SAY  "*  l=List  of  officers  in  alphabetical  order  *  " 
@  7,13  SAY  "* 

@  8, 13  SAY  "*  2=List  of  officers  ordered  by  rank  *” 
@  9,13  SAY  "♦  *■• 
@  10, 13  SAY  "*  3=List  of  units  with  their  officers  ♦” 
@  11,13  SAY  "*  *  " 
@  12, 13  SAY  "*  4=List  of  officers  with  non_military  studies  *" 
@  13,13  SAY  *'■ 
@  14,  13  SAY  5=List  of  officers  who  know  foreign  languages  *  " 
@  15,13  SAY  '•*  *" 
@  16,13  SAY  "♦  6=List  of  officers  including  marital  status  *" 
@  17,13  SAY  "♦  ♦" 
@  18,13  SAY  "*  7=List  of  officers  with  service  times  *’ 
@  19,13  SAY  "♦  *'• 
@  20,  13  SAY  '■*  8=List  of  officers  with  addresses  and  phone#  *" 


@  21,  13  SAY  "♦*********;*t*:+:*********!*:**:<f*******************»***" 
@  22, 13  SAY  "  Enter  the  corresponding  number  OR 

9  23, 13  SAY  "  enter  0  to  exit  to  main  menu 

STORE  "  "  TO  choice 
WAIT  TO  choice 

♦  Store  choice  to  the  "select"  field  of  temper  to  be  used 

♦  by  the  monitor  program 

SELECT  SECONDARY 
USE  temper 

REPLACE  select  WITH  choice 
USE 

♦  Accept  the  choice  and  branch  to  corresponding  program 


DO  CASE 

CASE  choice  =  "O" 
RETURN 

CASE  choice  =  "1" 
DO  report  1 
CASE  choice  =  "2” 
DO  report2 
CASE  choice  =  '3” 
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DO  reports 
CASE  choice  = 

DO  report4 
CASE  choice  =  "S" 
DO  reports 
CASE  choice  =  "6" 
DO  reports 
CASE  choice  =  "7" 
DO  report? 

CASE  choice  =  "S" 
DO  reports 
OTHERWISE 


*  Print  an  error  message  and  give  another  chance 


ERASE 
?  CHR(7) 

@  10,17  SAY  choice+"  IS  AN  ILLEGAL  CHOICE  -  TRY  AGAIN 
STORE  1  TO  del 
DO  WHILE  del  <  40 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE 


********  PROGRAM  SUBMENUS  ******** 

* 

*  This  program  controls  the  Miscellaneous  function 

*  of  the  system 

* 

ERASE 

STORE  T  TO  noexit 
STORE  T  TO  sub3 
DO  WHILE  noexit 
ERASE 

SET  PRINT  OFF 
@  3,52  SAY  DATEO 

@  4, 16  SAY  "*********************************************' 


@  5,16  SAY  "*  *' 

@  6,  16  SAY  SUBMENUS  *' 

@  7,16  SAY  MISCELLANEOUS  OPERATIONS  *' 

@  8,16  SAY  *• 

@  9,16  SAY  "¥********************************************' 

@  10,16  SAY  *■ 

@  11,16  SAY  "♦  0  =  Exit  to  MAIN  MENU  *' 

@  12,16  SAY  1  =  Print  MONITOR  file  *' 

@  13,16  SAY  •'*  2  =  Print  STATISTIC  file 

@  14,16  SAY  "♦  3  =  Delete  MONITOR  file  *' 

@  15,16  SAY  4  =  Delete  STATISTIC  file 

@  16,16  SAY  "*  5  =  Display  an  officer's  data  *' 

@  17, 16  SAY  "*  on  the  screen  *' 


@  18, 16  SAY  "*********************************************’ 
@  20,  16  SAY  "  Enter  the  corresponding  number 

STORE  "  ■'  TO  choice 
WAIT  TO  choice 

*  Store  choice  to  the  "select"  field  of  TEMPOR  to  be  used 

*  by  the  monitor  program 

SELECT  SECONDARY 
USE  temper 

REPLACE  select  WITH  choice 
USE 

*  Accept  choice  and  brauich  to  the  corresponding  program 


DO  CASE 

CASE  choice  =  "0" 
RETURN 

CASE  choice  =  "1" 
DO  printmon 
CASE  choice  =  "2" 
DO  printstat 
CASE  choice  =  "3” 
DO  delmon 
CASE  choice  =  "4" 
DO  delstat 
CASE  choice  =  "5" 


DO  dispsern 


OTHERWISE 


*  Print  an  error  message  and  give  another  chance 

ERASE 
?  CHR(7) 

®  11,17  SAY  choice+"  IS  AN  ILLEGAL  CHOICE  -  TRY  AGAIN’ 
STORE  1  TO  del 
DO  WHILE  del  <  40 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 
ENDDO  WHILE 


B.  PROGRAMS  IMPLEMENTING  THE  UPDATE  OPERATIONS 

These  programs  permit  the  user  to  perform  insertions, 
deletions,  and  modifications  in  the  files  of  the  database. 

1 .  Insertion  Programs 

These  programs  are  for  adding  records  to  the  data¬ 
base  files.  The  structure  of  all  the  programs  follow  the 
same  logic,  so  we  will  describe  only  the  program  which  adds 
records  to  the  MASTER  (PERSONNEL)  file. 

The  whole  structure  of  the  program  is  as  follows: 

a.  The  MASTER  file  is  opened. 

b.  The  user  is  prompted  to  enter  the  new  serial 
number  or  a  blank  in  order  to  exit  to  SUBMENUl,  when  he  is 
finished. 

c.  The  program  searches  the  MASTER  file  for  the 
new  serial  number.  If  it  already  exists,  prints  an  error 
message  and  gives  another  chance,  otherwise  it  proceeds. 

d.  The  proper  memory  variables,  in  which  the  new 
values  are  to  be  stored,  are  initialized  to  blanks.  For 
simplicity  the  names  of  the  memory  variables  are  the  same 
as  the  corresponding  field  names  with  the  prefix  'm',  v/hich 
stands  for  memory.  This  holds  throughout  the  whole  system. 

e.  Then  the  program  displays  on  the  screen  the  new 
serial  number,  the  names  of  the  fields  and  the  corresponding 
blank  space.  Then  the  user  can  enter  the  new  values.  Again 
the  user  has  the  opportunity  to  exit  by  pressing  'ENTER'. 
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f.  Then  a  blank  record  is  appended  to  the  MASTER 
file  and  each  field  is  replaced  with  the  corresponding 
memory  variable. 

g.  The  whole  operation  is  repeated  within  a  WHILE 
loop,  until  the  user  exits. 

h.  The  program  MONITR  which  is  for  monitoring  every 
job  done  in  the  database,  is  called  only  once  before  the 
program  exits  from  either  of  the  three  possible  exits,  and 
after  the  number  of  changes  is  stored  in  the  field  'counter' 
of  the  file  TEMPOR.  This  is  performed  in  all  the  programs 
that  need  to  monitor  the  job  done  in  the  database. 

The  listings  of  the  programs  are  given  in  the  fol¬ 


lowing  pages. 


PROGRAM  INSERTl  ♦***♦♦** 


*  This  program  adds  records  to  MASTER (PERSONNEL)  file 
ERASE 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  0  TO  count 

STORE  "*****  ADDING  RECORDS  TO  MASTER  FILE  *****"  TO  titlel 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  to  mserno 

@5,60  SAY  DATEO 
@7,5  SAY  titlel 

@  10,5  SAY  "ENTER  A  SERIAL  NUMBER"  GET  mserno  PICTURE  "9999" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mserno, 1 , 1 )  = 

USE 

*  Before  the  program  returns,  it  stores  the  variable 

*  count (♦»  of  changes)  to  the  field  'counter'  of  TEMPOR 

*  and  records  the  changes.  This  is  done  in  all  three 

*  exits  of  the  program. 

IF  count  >  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

♦  Search  the  master  file  for  the  new  serial  number. 

♦  If  it  already  exists  print  an  error  messa^je,  display 

♦  the  record  and  let  the  user  decide  what  to  do. 

FIND  &mserno 
IF  <»  <>  0 
?  CHR(7) 

@  14,5  SAY  "The  record  already  exists" 

@  16,5  SAY  "The  current  record  is:" 

@  18,5  SAY  "serial  number  =  "+serno 
@  19,5  SAY  "name  =  "+name 

@21,5  SAY  "TRY  AGAIN?  (Y/N)" 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 

ELSE 

USE 
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IF  count  >  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 
ENDIF 

♦  Initialize  memory  variables 
ERASE 

STORE  "  “  TO  mname 

STORE  "  ■■  TO  mrank 

STORE  "  "  TO  munit 

STORE  "  "  TO  mserentry 

STORE  "  "  TO  mreptdate 

STORE  "  "  TO  mduty 

STORE  "  "  TO  meducat 

STORE  "  "  TO  mdegree 

STORE  "  ”  TO  mforlang 

STORE  "  "  TO  mmarstat 

STORE  "  "  TO  mchildren 

STORE  "  "  TO  maddress 

STORE  "  "  TO  mphone 

@1,60  SAY  DATEO 
®  2,5  SAY  titlel 

@4,5  SAY  "serial  number  =  "+mserno 

*  Get  the  values  for  the  new  record 

@  5,5  SAY  "name  "  GET  mname; 

PICTURE  "XXXXXXXXXXXXXXXX" 

@  6,5  SAY  "rank  "  GET  mrank  PICTURE  "99" 

@  7,5  SAY  "unit  "  GET  munit  PICTURE  "9999" 

@  8,5  SAY  "serentry"  GET  mserentry  PICTURE  "999999' 

@  9,5  SAY  "reptdate"  GET  mreptdate  PICTURE  "999999' 

@  10,5  SAY  "duty  "  GET  mduty  PICTURE  "99" 

@  11,5  SAY  "educat  "  GET  meducat  PICTURE  "99" 

@  12,5  SAY  "degree  "  GET  mdegree  PICTURE  "A" 

@  13,5  SAY  "forlang  "  GET  mforlang  PICTURE  "99" 

@  14,5  SAY  "marstat  "  GET  mmarstat  PICTURE  "A" 

@  15,5  SAY  "children"  GET  mchildren  PICTURE  "9" 

@  16,5  SAY  "address  "  GET  maddress; 

P I CTURE  ' XXXXXXXXXXXXXXXXXXXX ' 
@  17,5  SAY  "phone  "  GET  mphone  PICTURE  "9999999" 

@  20,5  SAY  "Enter  blanks  to  exit" 

READ 

IF  $(mname,  1,1)  =  "  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 


USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

♦  Append  a  new  empty  record  in  the  master  file  and  replace 

*  each  field  with  the  corresponding  memory  variable. 

APPEND  BLANK 

REPLACE  serno  WITH  mserno 
REPLACE  name  WITH  mname 
REPLACE  rank  WITH  mrank 
REPLACE  unit  WITH  munit 
REPLACE  serentry  WITH  mserentry 
REPLACE  reptdate  WITH  mreptdate 
REPLACE  duty  WITH  mduty 
REPLACE  educat  WITH  meducat 
REPLACE  degree  WITH  mdegree 
REPLACE  forlang  WITH  mforlang 
REPLACE  marstat  WITH  mmarstat 
REPLACE  children  WITH  mchildren 
REPLACE  address  WITH  maddress 
REPLACE  phone  WITH  mphone 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


PROGRAM  INSERT2  ♦*)<«***** 


*  This  program  adds  records  to  UNITS  file 
ERASE 

SELECT  PRIMARY 

USE  units  INDEX  units 

STORE  "♦****  adding  RECORDS  TO  UNITS  FILE  *****"  TO  title2 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  “  TO  mcode 

@5,60  SAY  DATEO 
@7,5  SAY  title2 

@  10,5  SAY  "ENTER  A  UNIT  CODE"  GET  mcode  PICTURE  ”9999" 

@  12,5  SAY  "Press  ’ENTER'  to  exit" 

READ 

IF  $( mcode, 1,1)  =  "  " 

USE 

*  Before  the  program  returns,  it  updates  the  TEMPOR  and 

*  MONITOR  files.  This  is  done  in  all  three  exits  of  the 

*  program 

IF  count  >  0 

SELECT  SECONDARY 
USE  TEMPOR 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  the  units  file  for  the  new  unit  code.  If  it  already  exists 

*  print  an  error  message  and  give  another  chance  otherwise  proceed. 

FIND  &mcode 
IF  ♦»  <>  0 
?  CHR(7) 

@  14,5  SAY  "The  record  already  exists" 

@  16,5  SAY  "The  current  record  is:" 

@  18,5  SAY  "code  =  "+code 

@  19,5  SAY  "title  =  "+title 

@  20,5  SAY  "location  =  "+location 

@  22,5  SAY  "TRY  AGAIN  ?  (Y/N)" 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 

ELSE 

USE 

IF  count  >  0 
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SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 
ENDIF 

♦  Initialize  memory  variables 

ERASE 

STORE  "  "  TO  mtitle 

STORE  "  "  TO  mlocation 

@3,60  SAY  DATEO 

@5,5  SAY  title2 

@8,5  SAY  "unit  code  =  ■■+mcode 

@  10,5  SAY  "title  "  GET  mtitle  PICTURE  "XXXXXXXXXXXXXXX' 
@  11,5  SAY  "location"  GET  mlocation  PICTURE  "XXXXXXXXXXXX' 
@  15, 5  SAY  "Enter  blanks  to  exit" 

READ 

IF  $(mtitle, 1, 1 )  =  "  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
ENDIF 
RETURN 
ENDIF 

♦  Append  a  blank  record  in  the  units  file  and  replace 

♦  each  field  with  the  corresponding  memory  variables 

APPEND  BLANK 
REPLACE  code  WITH  racode 
REPLACE  title  WITH  mtitle 
REPLACE  location  WITH  mlocation 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


PROGRAM  INSERTS  ****♦*)<{* 

*  This  program  adds  records  to  RANKS  file 
ERASE 

SELECT  PRIMARY 

USE  ranks  INDEX  ranks 

STORE  "*****  ADDING  RECORDS  TO  RANKS  FILE  *****"  TO  titleS 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  TO  mcode 

@5,60  SAY  DATEO 
@7,5  SAY  titles 

@  10,5  SAY  "ENTER  A  RANK  CODE"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode, 1,1)  =  "  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  the  RANKS  file  for  the  new  code.  If  it  already 

*  exists  print  an  error  message  and  give  another  chance 

*  otherwise  proceed 

FIND  &mcode 
IF  »  <>  0 
?  CHR{7) 

@  14,10  SAY  "  The  record  already  exists" 

@  16,5  SAY  "The  current  record  is:" 

@  18,5  SAY  "code  =  "+code 

@  19,5  SAY  "armyname  =  "+armynarae 

@  20, 5  SAY  "navyname  =  "+navynaine 

@22,5  SAY  "TRY  AGAIN  ?  (Y/N)" 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 

ELSE 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 


DO  monitr 
END  IF 
RETURN 
END  IF 
ENDIF 

*  Initialize  memory  variables 
ERASE 

STORE  "  "  TO  marmyname 

STORE  "  “  TO  mnavyname 

♦  Get  the  new  values 

@  4,60  SAY  DATEO 

@5,5  SAY  titles 

@  8,5  SAY  "Rank  code  =  "+mcode 

@  10,5  SAY  "armyname"  GET  marmyname  PICTURE  "XXXX' 
@  11,5  SAY  "navyname"  GET  mnavyname  PICTURE  "XXXX‘ 
READ 


PROGRAM  INSERT4  ********** 

*  This  program  adds  records  to  DUTIES  file 
ERASE 

SELECT  PRIMARY 

USE  duties  INDEX  duties 

STORE  "*****  ADDIND  RECORDS  TO  DUTIES  FILE  *****"  TO  title4 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  TO  mcode 
@  5,60  SAY  DATEO 
@7,5  SAY  title4 

@  10,5  SAY  "ENTER  A  DUTY  CODE"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  ’ENTER'  to  exit" 

READ 

IF  $(mcode, 1,1)  =  "  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  DUTIES  file  for  the  new  code.  If  it  exists  print  an 

*  error  message  and  give  another  chance,  otherwise  proceed. 

FIND  &mcode 
IF  <»  <>  0 
?  CHR{7) 

@  14,5  SAY  "The  record  already  exists" 

@  16,5  SAY  "The  current  record  is:" 

@  18,5  SAY  "code  =  "+code 
@  19,5  SAY  "name  =  "+name 
@  21,5  SAY  "TRY  AGAIN  ?  (Y/N)" 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 

ELSE 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 


RETURN 
END  IF 
ENDIF 

STORE  "  ■'  TO  mneune 

ERASE 

@  5,60  SAY  DATEO 
@7,5  SAY  title4 
@  10,5  SAY  "duty  code  =  ■■+mcode 

@  12,5  SAY  "name"  GET  mname  PICTURE  "XXXXXXXXXXXXXXXXXXXX" 
READ 

*  Append  the  record  to  DUTIES  file 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


********  program  inserts  ******** 

*  This  program  adds  records  to  FOREIGN  LANGUAGES  file 
ERASE 

SELECT  PRIMARY 

USE  forlangs  INDEX  forlangs 

STORE  "*****  ADDING  RECORDS  TO  FORLANGS  FILE  *****"  TO  titleS 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  TO  mcode 

@  5,60  SAY  DATEO 
@75  SAY  titles 

@  10,5  SAY  "ENTER  A  LANGUAGE  CODE"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode,  1,1)  =  "  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
ENDIF 

♦  Search  the  forlangs  file  for  the  new  code.  If  it  already 

*  exists,  print  an  error  message  and  give  another  change, 

♦  otherwise  proceed 

FIND  &mcode 
IF  #  <>  0 
?  CHR(7) 

@  14,5  SAY  "The  record  already  exists.  Try  again." 

@  16,5  SAY  "The  current  record  is:” 

@  18,5  SAY  "code  =  "+code 
@  19,5  SAY  "name  =  "+name 
@21,5  SAY  "TRY  AGAIN?  (Y/N)” 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 

ELSE 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
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END  IF 
RETURN 
END  IF 
END  IF 

*  Ini'bialize  memory  variables. 

ERASE 

STORE  "  ”  TO  mname 

@  4,60  SAY  DATEO 
@5,5  SAY  title5 

@  8,5  SAY  "language  code  =  "+mcode 

*  Get  the  name  for  the  new  language. 

@  10,5  SAY  "name"  GET  mname  PICTURE  "XXXXXXXXXXXX 
READ 

*  Append  an  empty  record  and  replace  the  fields 

*  with  the  corresponding  memory  variables. 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


********  PROGRAM  INSERTS  ******** 


*  This  program  adds  records  to  SCIENCES  file 
ERASE 

jp/^m  nryxxd  Anxr 
i  rxCxinAxi.1 

USE  sciences  INDEX  sciences 

STORE  "*****  ADDIND  RECORDS  TO  SCIENCES  FILE  *****"  TO  titleS 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  '■  to  mcode 

@5,60  SAY  DATEO 
@7,5  SAY  titles 

@  10,5  SAY  "ENTER  A  SCIENCE  CODE"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mcode,  1,1)  =  " 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  the  sciences  file  for  the  new  code.  If  it  already 

*  exists,  print  an  error  message  and  give  another  chance, 

*  otherwise  proceed 

FIND  &mcode 
IF  it  <>  0 
?  CHR(7) 

@  14,5  SAY  "The  record  already  exists" 

@  16,5  SAY  "The  current  record  is:" 

@  18,5  SAY  "code  =  "+code 
@  19,5  SAY  "name  =  "+narae 
@21,5  SAY  "TRY  AGAIN?  (Y/N)" 

STORE  "  ”  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

LOOP 

ELSE 

USE 

IF  count  >  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
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END  IF 
RETURN 
ENDIF 
ENDIF 

*  Initialize  memory  variable 

ERASE 

STORE  "  "  TO  mname 

@  4,60  SAY  DATEO 
@  5,5  SAY  titles 

@8,5  SAY  "science  code  =  "+mcode 

*  Get  the  name  for  the  new  science 

@  10,5  SAY  "name"  GET  mname  PICTURE  "XXXXXXXXXXXXXXXXXXX 
READ 

*  Append  an  empty  record  and  replace  the  fields  with 

*  the  corresponding  memory  variable. 

APPEND  BLANK 
REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


2 .  Deletion  Programs 

These  programs  are  for  deleting  records  from  the 
files  of  the  database.  Again  we  will  describe  only  the 
program  that  performs  deletions  from  the  MASTER  file  since 
all  the  other  programs  have  the  same  structure. 

The  structure  of  the  program  is  as  follows: 

a.  The  MASTER  file  is  opened. 

b.  The  user  is  prompted  to  enter  the  serial  number, 
which  is  the  key  value  of  the  record  to  be  deleted.  He 

can  also  exit  by  pressing  'ENTER'. 

c.  When  the  user  exits  after  he  is  finished,  that 
is,  after  several  deletions  have  been  made,  then  the  number 
of  deletions  which  is  kept  in  the  variable  'count',  is  trans¬ 
ferred  to  the  field  'counter'  of  the  file  TEMPOR.  Then  the 
program  MONITR  is  called  to  record  the  changes.  If  the  user 
exits  at  the  beginning,  that  is,  without  doing  anything,  then 
the  program  returns  to  SUBMENUl. 

d.  The  MASTER  file  is  searched  for  the  serial  num¬ 
ber.  If  the  record  does  not  exist,  the  program  prints  an 
error  message,  and  gives  another  chance.  If  the  record 
exists,  then  it  is  displayed  on  the  screen. 

e.  At  this  point  the  user  is  asked  to  confirm  the 
deletion.  If  he  is  sure  that  the  record  must  be  deleted, 

he  has  just  to  enter  'Y',  and  the  deletion  operation  is  per¬ 
formed,  otherwise  he  has  to  enter  'N'  to  abort  the  deletion. 

Then  the  program  loops,  repeating  the  whole  operation. 

The  listings  of  the  programs  are  given  in  the  next  pages. 
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PROGRAM  DELETEl  *******>ti 
*  This  program  deletes  records  from  MASTER  file 
ERASE 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  "*****  DELETING  RECORDS  FROM  MASTER  FILE  ****♦"  TO  title 
STORE  "  "  TO  mserno 

STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

@5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  serial  number"  GET  mserno  PICTURE  "9999" 

@  12,5  SAY  "Press  ’ENTER’  to  exit" 

READ 

IF  $(mserno, 1,  1 )  =  "  " 

USE 

♦  If  the  user  has  already  made  deletions  store  the 

*  number  of  deletions  in  the  file  TEMPOR,  record 

*  the  changes  and  return  to  SUBMENUl,  otherwise 

♦  just  return 

IF  count  <>  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  MASTER  file  for  the  serial  number.  If  the 

*  record  does  not  exist  print  an  error  message  auid 

*  give  another  cheuice,  otherwise  display  the 

*  record  amd  let  the  user  confirm  the  deletion. 

FIND  &mserno 
IF  »  =  0 
?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again” 

STORE  1  TO  del 
DO  WHILE  del  <  30 
STORE  del+1  TO  del 
ENDDO  WHILE 
STORE  "  "  TO  mserno 

LOOP 
ELSE 

ERASE 

@2,60  SAY  DATE( ) 


9 

3,  5 

SAY 

title 

9 

5,  5 

SAY 

"Record 

to  be  deleted 

9 

7,5 

SAY 

"serno 

=  "+serno 

9 

8,  5 

SAY 

"name 

=  " +name 

9 

9,5 

SAY 

"rank 

=  "+rank 

9 

10,  5 

SAY 

"unit 

=  "+unit 

®  11,5  SAY  "serentry  =  ■‘+serentry 

9  12,5  SAY  “reptdate  =  "+reptdate 

@  13,5  SAY  "duty  =  "+duty 

9  14,5  SAY  "educat  =  ■‘+educat 

9  15,5  SAY  "degree  =  "+degree 

9  16,5  SAY  "forlang  =  ”+forlang 

@  17,5  SAY  "marstat  =  "+inarstat 

9  18,5  SAY  "children  =  "+children 

@  19,5  SAY  "address  =  "+address 

9  20,5  SAY  "phone  =  "+phone 

?  CHR(7) 

9  22,5  SAY  "The  record  will  be  deleted.  PROCEED 
STORE  "  "  TO  answer 
WAIT  TO  answer 

*  If  the  user  confirms  the  deletion  some  data 

*  concerning  the  officer  in  question  are 

*  transfered  to  the  STATISTIC  file  and  then  the 

*  deletion  is  performed. 

IF  answer  =  "y" 

SELECT  SECONDARY 
USE  statistic 
APPEND  BLANK 

REPLACE  serno  WITH  p. serno 
REPLACE  name  WITH  p.name 
REPLACE  rank  WITH  p. rank 
REPLACE  unit  WITH  p.unit 
REPLACE  reptdate  WITH  ; 

$( p, reptdate,  1, 2)  +  "/"+$( p. reptdate, 3,2)+"/' 
+$ ( p . reptdate ,5,2) 

REPLACE  deldate  WITH  DATE( ) 

USE 

SELECT  PRIMARY 

DELETE 

PACK 

STORE  count +1  TO  count 
ENDIF 
ENDIF 

STORE  "  "  TO  mserno 

ENDDO  WHILE  continue 


««3|c3tc«i<c«9tc  PROGRAM  DELETE2  ******** 

*  This  program  deletes  records  from  UNITS  file 
ERASE 

SELECT  PRIMARY 

USE  units  INDEX  units 

STORE  "*****  DELETING  RECORDS  FROM  UNITS  FILE  *****"  TO  tittle 
STORE  "  TO  mcode 

STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

@  5,60  SAY  DATEO 
@7,5  SAY  tittle 

@  10,5  SAY  "Enter  unit  code"  GET  mcode  PICTURE  "9999" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode,  1,1)  =  "  " 

USE 

*  If  the  user  has  already  made  deletions  , store  the  number 

*  of  deletions  in  the  file  TEMPOR,  record  the  chau:iges  and 

*  and  return  to  SUBMENUl,  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  UNITS  file  for  the  unit  code.  If  the  record  does  not 

*  exist  print  an  error  message  and  give  another  chance, 

*  otherwise  display  the  record  and  let  the  user  confirm 

*  the  deletion 

FIND  &mcode 
IF  #  =  0 
?  CHR(7) 

@  22,5  SAY  "  The  record  does  not  exist,  try  again" 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
STORE  "  "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,  60  SAY  DATE( ) 

@3,5  SAY  tittle 


@5,5  SAY  "Record  to  be  deleted" 

@7,5  SAY  "code  =  "+code 

@8,5  SAY  "title  =  "+title 

@9,5  SAY  "location  =  "+location 

?  CHR(7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?  (Y/N) 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

DELETE 

PACK 

STORE  count +1  TO  count 
END  IF 
ENDIF 

STORE  "  "  TO  mcode 

ENDDO  WHILE  continue 


PROGRAM  DELETES  **#***:««* 

*  This  program  deletes  records  from  RANKS  file 

ERASE 

CLEAR 

SELECT  PRIMARY 

USE  reuiks  INDEX  ranks 

STORE  "*****  DELETING  RECORDS  FROM  RANKS  FILE  *****"  TO  title 
STORE  "  "  TO  mcode 

STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

@5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  rank  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  ’ENTER’  to  exit" 

READ 

IF  $(mcode,l,l)  =  "  " 

USE 

*  If  the  user  has  already  made  deletions,  store  the  number 

*  of  deletions  in  the  file  TEMPOR,  record  the  changes  and 

*  return  to  SUBMENUl,  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  RANKS  file  for  the  code.  If  the  record  does  not  exist, 

*  print  an  error  messeige  auid  give  another  chance,  otherwise 

*  displeo’’  the  record  and  let  the  user  confirm  the  deletion. 

FIND  &mcode 
IF  ♦»  =  0 
?  CHR(7) 

@  22,5  SAY  "The  record  does  not  exist,  try  again" 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
STORE  "  "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,  60  SAY  DATE( ) 

@  3,5  SAY  title 


@5,5  SAY  "Record  to  be  deleted" 

@  7,5  SAY  "code  =  "+code 

@8,5  SAY  "armyname  =  "+arinyname 
@  9,5  SAY  "navyname  =  "+navyname 
?  CHR(7) 

@  15, 10  SAY  "The  record  will  be  deleted.  PROCEED 
STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

DELETE 

PACK 

STORE  count +1  TO  count 
END  IF 
ENDIF 

STORE  "  "  TO  mcode 

ENDDO  WHILE  continue 


********  PROGRAM  DELETE4  ****)*f*** 

*  This  program  deletes  records  from  DUTIES  file 
ERASE 

SELECT  PRIMARY 

USE  duties  INDEX  duties 

STORE  "*****  DELETING  RECORDS  FROM  DUTIES  FILE  *****“  TO  title 
STORE  "  "  TO  mcode 

STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

@  5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  duty  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  ’ENTER'  to  exit" 

READ 

IF  $(mcode,  1,1)  =  "  “ 

USE 

*  If  the  user  has  already  made  deletions  store  the  number 

*  of  deletions  in  the  file  TEMPOR,  record  the  chamges  and 

*  return  to  SUBMENUl,  otherwise  just  return, 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  DUTIES  file  for  the  duty  code.  If  the  record  does  not 

*  exist,  print  em  error  message  and  give  another  chance,  other- 

*  wise  display  the  record  and  let  the  user  confirm  the  deletion 

FIND  &mcode 
IF  #  =  0 
?  CHR(7) 

@  22,5  SAY  “The  record  does  not  exist,  try  again" 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
STORE  "  "  TO  mcode 

LOOP 
ELSE 

ERASE 

@2,60  SAY  DATE( ) 

@3,5  SAY  title 

@  5,5  SAY  "Record  to  be  deleted" 


@  7,5  SAY  "code  =  "+code 
@  8,5  SAY  "name  =  "+name 
?  CHR(7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?  (Y/N) 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

DELETE 

PACK 

STORE  count+1  TO  count 
END  IF 
END  IF 

STORE  "  "  TO  mcode 

ENDDO  WHILE  continue 
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*)Kitf*****  PROGRAM  DELETES  ******** 

*  This  program  deletes  records  from  FORLANGS  file 
ERASE 

SELECT  PRIMARY 

USE  forlangs  INDEX  forlangs 

STORE  "*****  DELETING  RECORDS  FROM  FORLANGS  FILE  ****♦"  TO  titl 
STORE  "  "  TO  mcode 

STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

®  5,60  SAY  DATEO 
®  7.5  SAY  title 

®  10,5  SAY  "Enter  language  code"  GET  mcode  PICTURE  "99" 

®  12,5  SAY  "Press  ’ENTER’  to  exit" 

READ 

IF  $(mcode,  1,1)  =  "  " 

USE 

*  If  the  user  has  already  made  deletions,  update  the  file 

*  TEMPOR,  record  the  changes  and  return  to  SUBMENU 1, 

*  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  FORLANGS  file  for  the  code.  If  the  record  does  not 

*  exist,  print  an  error  messeige  and  give  smother  chance, 

*  otherwise  display  the  record  and  let  the  user  confirm 

*  the  deletion 

FIND  &mcode 
IF  =  0 
?  CHR(7) 

@  22,5  SAY  “The  record  does  not  exist,  try  again" 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
STORE  "  "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,  60  SAY  DATE( ) 

®  3,5  SAY  title 


@  5,5  SAY  "Record  to  be  deleted" 

@  7,5  SAY  "code  =  "+code 
@  8,5  SAY  "name  =  "+name 
?  CHR{7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?  (Y/N) 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

DELETE 

PACK 

STORE  count+1  TO  count 
END  IF 
ENDIF 

STORE  "  "  TO  mcode 

ENDDO  WHILE  continue 


4:*******  PROGRAM  DELETES  ******** 


*  This  prograuoa  deletes  records  from  SCIENCES  file 
ERASE 

SELECT  PRIMARY 

USE  sciences  INDEX  sciences 

STORE  "*****  DELETING  RECORDS  FROM  SCIENCES  FILE  *****"  TO  title 
STORE  "  "  TO  mcode 

STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

@5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  “Enter  science  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mcode, 1,1)  =  "  " 

USE 

*  If  the  user  has  already  made  deletions,  update  the  file 

*  TEMPOR,  record  the  changes  and  return  to  SUBMENU 1, 

*  otherwise  just  return. 

IF  count  <>  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  SCIENCES  file  for  the  code.  If  the  record  does  i:ot 

*  exist,  print  an  error  message  and  give  another  chance, 

*  otherwise  display  the  record  and  let  the  user  confirm 

*  the  deletion 

FIND  &mcode 
IF  #  =  0 
?  CHR(7) 

@  22,6  SAY  "The  record  does  not  exist,  try  again" 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
STORE  "  "  TO  mcode 

LOOP 
ELSE 

ERASE 

@  2,  60  SAY  DATE( ) 

@  3,5  SAY  title 


•TP*" 


@  5,5  SAY  Record  to  be  deleted" 

@7,5  SAY  "code  =  "+code 
@8,5  SAY  "name  =  "+name 
?  CHR(7) 

@  15,5  SAY  "The  record  will  be  deleted.  PROCEED  ?  (Y/N)" 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "y" 

DELETE 

PACK 

STORE  count +1  TO  count 
END  IF 
END  IF 

STORE  "  "  TO  mcode 

ENDDO  WHILE  continue 


y  ■' 


3 .  Modification  Programs 


These  programs  modify  records  in  the  files  of  the 
database.  Since  the  structure  of  all  the  programs  is  the 
same,  we  will  describe  only  the  program  MODIFYl  which  makes 
changes  in  the  MASTER  file. 

The  structure  of  the  program  is  as  follows: 

a.  The  MASTER  file  is  opened. 

b.  An  appropriate  message  is  displayed  on  the 
screen,  prompting  the  user  to  enter  the  serial  number  of 
the  officer  whose  record  is  to  be  modified.  At  this  point 
he  may  exit  the  program  by  pressing  'ENTER',  either  after 
he  has  made  the  modifications  he  wants,  or  at  the  beginning 
without  having  done  anything.  In  the  latter  case  the  pro¬ 
gram  just  returns  to  SUBMENUl.  In  the  former  case  the  pro¬ 
gram  updates  the  MONITOR  file  and  then  returns.  Before  the 
program  exits,  it  closes  the  MASTER  file. 

c.  The  MASTER  file  is  searched  for  the  serial 
number.  If  the  record  does  not  exist,  the  program  displays 
an  error  message,  and  loops  giving  another  chance. 

d.  If  the  record  exists,  then  the  field  values  are 
stored  to  temporary  memory  variables,  and  the  record  is 
displayed  on  the  screen. 

e.  Now  the  user  can  modify  any  field  he  wants,  by 
moving  the  cursor  and  overwriting  the  existing  values. 

f.  When  he  is  finished,  the  old  field  values  are 
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g.  The  whole  operation  continued  under  the  control 
of  a  WHILE  loop,  until  the  user  exits. 

The  listings  of  the  programs  are  given  in  the 
following  pages. 


♦♦s*:*)*:***  PROGRAM  MODIFYl  ******** 


*  This  program  modifies  records  in  MASTER  file 
ERASE 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  "*****  MODIFYING  RECORDS  IN  MASTER  FILE  *****"  to  TITLE 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  ■■  "  TO  mserno 

*  Get  the  serial  number 

@5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  serial  number"  GET  mserno  PICTURE  "9999" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mserno, 1, 1 )  =  "  " 

USE 

*  Update  the  TEMPOR  file  and  record  the  changes 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURi; 

END  IF 

*  Look  up  MASTER  file  for  the  serial  number 

FIND  &mserno 
IF  tt=0 

?  CHR(7) 

@  22,10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 

-  Store  current  field  values  to  temporary  memory  variables 

STORE  name  TO  mnaune 
STORE  rank  TO  mrank 


STORE  unit  TO  munit 
STORE  ser entry  TO  mserentry 
STORE  reptdate  TO  mreptdate 
STORE  duty  TO  mduty 
STORE  educat  TO  meducat 
STORE  degree  TO  mdegree 
STORE  forlang  TO  mforlang 
STORE  marstat  TO  mmarstat 
STORE  children  TO  mchildren 
STORE  address  TO  maddress 
STORE  phone  TO  mphone 

♦  Display  the  record  and  get  the  new  field  values 


ERASE 
@  1,60 
@  2.5 
@  4.5 
@  6,5 
@7.5 
@  8,5 
@  9,5 
@  10,5 
@  11,5 
@  12,5 
@  13,5 
@  14,5 
@  15,5 
@  16,5 
@  17,5 
@  18,  5 
@  19,5 
READ 


SAY  DATEO 
SAY  title 

SAY  "Serial  number 
SAY  "Serno  "  GET 
SAY  "Name  "  GET 
SAY  "Rank  "  GET 
SAY  "Unit  "  GET 
SAY  "Serentry"  GET 
SAY  "Reptdate"  GET 
SAY  "Duty  "  GET 
SAY  "Educat  "  GET 
SAY  "Degree  "  GET 
SAY  "Forlang  "  GET 
SAY  "Marstat  "  GET 
SAY  "Children"  GET 
SAY  "Address  "  GET 
SAY  "Phone  "  GET 


=  +mserno 

mserno 

mname 

mrank 

munit 

mserentry 

mreptdate 

mduty 

meducat 

mdegree 

mforlang 

mmarstat 

mchildren 

maddress 

mphone 


*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  serno  WITH  mserno 
REPLACE  name  WITH  mname 
REPLACE  rank  WITH  mrank 
REPLACE  unit  WITH  munit 
REPLACE  serentry  WITH  mserentry 
REPLACE  reptdate  WITH  mreptdate 
REPLACE  duty  WITH  mduty 
REPLACE  educat  WITH  meducat 
REPLACE  degree  WITH  mdegree 
REPLACE  forlauig  WITH  mforlang 
REPLACE  marstat  WITH  mmarstat 
REPLACE  children  WITH  mchildren 
REPLACE  address  WITH  maddress 
REPLACE  phone  WITH  mphone 
STORE  count+1  TO  count 

ENDDO  WHILE  continue 


********  PROGRAM  MODIFY2  *******^ 

*  This  program  modifies  records  in  UNITS  file 
ERASE 

SELECT  PRIMARY 

USE  units  INDEX  units 

STORE  "*****  MODIFYING  RECORDS  IN  UNITS  FILE  *****"  TO  tittl 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  TO  mcode 

*  Get  the  unit  code 

@  5,60  SAY  DATEO 
@7,5  SAY  tittle 

@  10,5  SAY  "Enter  unit  code"  GET  mcode  PICTURE  "9999" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode, 1,1)  =  "  " 

USE 

*  Update  file  TEMPOR  and  record  the  changes 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Look  up  UNITS  file  for  the  code 

FIND  &mcode 
IF  »=0 

?  CHR(7) 

@  22,10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 

*  Store  current  field  values  to  temporary  memory  variables 


STORE  title  TO  mtitle 
STORE  location  TO  m location 


*  Display  the  record  and  get  the  new  field  values 


ERASE 
®  3,60 
@  5,5 
®  8,5 
@  10,5 
@  11,5 
@  12,5 
READ 


SAY  DATEO 
SAY  tittle 

SAY  "Unit  code  =  "+incode 
SAY  "Code  "  GET  mcode 
SAY  "Title  "  GET  mtitle 
SAY  "Location  "  GET  mlocation 


♦  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 


REPLACE  code  WITH  mcode 
REPLACE  title  WITH  mtitle 
REPLACE  locatioi-  WITH  mlocation 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


TTr'i 
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!*:*:***:♦!*:*{  PROGRAM  M0DIFY3  ******** 

*  This  program  modifies  records  in  RANKS  file 
ERASE 

SELECT  PRIMARY 

USE  ranks  INDEX  ranks 

STORE  ••*;♦:***  MODIFYING  RECORDS  IN  RANKS  FILE  *****"  to  TITLE 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  TO  mcode 

*  Get  the  rank  code 

@  5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  rank  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  ’ENTER'  to  exit" 

READ 

IF  $( mcode, 1,1)  =  " 

USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  RANKS  file  for  the  code 

FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22, 10  SAY  "The  record  does  not  exist,  try  again" 

SET  TALK  OFF 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 

*  Store  current  field  values  to  temporary  memory  variables 

STORE  armyname  TO  marmyname 
STORE  navy name  TO  mnavyname 


mm 


*  Display  the  record  and  get  the  new  values 


ERASE 
@  3,60 
®  5,5 
@  10,5 
®  12,5 
®  13,5 
®  14,5 
READ 


SAY  DATEO 
SAY  title 

SAY  "Rank  code  =  "+mcode 
SAY  "Code  "  GET  mcode 
SAY  "Armyneune"  GET  marmyname 
SAY  "Navyname"  GET  mnavynsune 


*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  armyname  WITH  marmyname 
REPLACE  navyname  WITH  mnavyname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


r,, 


♦♦**♦**  PROGRAM  MODIFY4  ******** 


*  This  program  modifies  records  in  DUTIES  file 
ERASE 

SELECT  PRIMARY 

USE  duties  INDEX  duties 

STORE  "*****  MODIFYING  RECORDS  IN  DUTIES  FILE  *****"  TO  titl 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  TO  mcode 

*  Get  the  duty  code 

@  5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  duty  code"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  ’ENTER’  to  exit" 

READ 

IF  $( mcode,  1,1)  =  "  " 

USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  DUTIES  file  for  the  code 

FIND  &mcode 
IF  »=0 

?  CHR(7) 

@  22,  10  SAY  "The  record  does  not  exist,  try  eigain" 

SET  TALK  OFF 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 

*  Store  current  field  values  to  temporary  memory  variables 


STORE  name  TO  mname 


*  Display  the  record  and  get  the  new  field  values 


ERASE 

@  3,60  SAY  DATEO 

@4,5  SAY  title 

@  7,5  SAY  "Duty  code  =  "+incode 

@  9,5  SAY  "code  "  GET  mcode 

@  10, 5  SAY  "name  "  GET  mname 

READ 

*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count+1  TO  count 
ENDDO  WHILE  continue 


♦*****:♦:*  PROGRAM  MODIFY5  ******)<£* 


*  This  program  modifies  records  in  FORLANGS  file 
ERASE 

SELECT  PRIMARY 

USE  forlauigs  INDEX  forlangs 

STORE  ■'*****■  MODIFYING  RECORDS  IN  FORLANGS  FILE  ♦****"  TO  titl 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  "  TO  mcode 


*  Get  the  foreign  language  code 

@5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  language  code"  GET  mcode  PICTURE  "99" 
@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $(mcode, 1,1)  =  "  " 

USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 


*  Search  FORLANGS  file  for  the  code 


FIND  &mcode 
IF  #=0 

?  CHR(7) 

@  22, 10  SAY  "The  record  does  not  exist,  try  again" 
SET  TALK  OFF 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 


♦  Store  current  field  values  to  temporary  memory  variables 


STORE  name  TO  mname 


*  Display  the  record  and  get  the  new  field  values 


ERASE 

@  3,60  SAY  DATEO 
@4,5  SAY  title 

@  7,5  SAY  "Code  number  =  "+mcode 

@  9,5  SAY  "code  "  GET  mcode 

@  10, 5  SAY  "name  "  GET  mname 

READ 


*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 


<I?-A1£S  424  IHPLEHENTflTION  OF  A  PEASONNEL  DATABASE  SVSTEN  IN 

HELLENIC  ARMED  FORCES  FORNATIONSCU)  NAVAL  POSTGRADUATE 
SCHOOL  HONTEREV  CA  P  TSAGARIS  ET  AL  DEC  65 
UNCLASSIFIED  F/G  5/9 

r  1 
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********  PROGRAM  MODIFY6  ******** 

*  This  program  modifies  reoords  in  SCIENCES  file 
ERASE 

SELECT  PRIMARY 

USE  sciences  INDEX  sciences 

STORE  "*****  MODIFYING  RECORDS  IN  SCIENCES  FILE  *****  "  TO  title 
STORE  0  TO  count 
STORE  T  TO  continue 
DO  WHILE  continue 
ERASE 

STORE  "  “  TO  mcode 

*  Get  the  science  code 

@5,60  SAY  DATEO 
@7,5  SAY  title 

@  10,5  SAY  "Enter  code  number"  GET  mcode  PICTURE  "99" 

@  12,5  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  $( mcode, 1,1)  =  "  " 

USE 

*  Monitor  changes 

IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
END  IF 
RETURN 
END  IF 

*  Search  SCIENCES  file  for  the  code 

FIND  &racode 
IF  #=0 

?  CHR(7) 

@  22,10  SAY  "The  record  does  not  exist,  try  aigain" 

SET  TALK  OFF 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 

*  Store  current  field  values  to  temporary  memory  variables 
STORE  name  TO  mname 
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*  Display  the  record  and  get  the  new  field  values 


ERASE 

@3,60  SAY  DATEO 

@4,5  SAY  title 

@  7,5  SAY  "Code  number  =  ■■+mcode 
@  9,5  SAY  "code  "  GET  mcode 

@  10, 5  SAY  "name  "  GET  mname 

READ 

*  Replace  old  values  with  new  values  and  put  the  record 

*  back  in  the  file 

REPLACE  code  WITH  mcode 
REPLACE  name  WITH  mname 
STORE  count +1  TO  count 
ENDDO  WHILE  continue 
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C .  REPORT  GENERATORS 


These  programs  permit  the  user  to  print  all  the  neces¬ 
sary  reports  which  must  be  available  to  the  Commander,  in 
order  to  help  him  in  his  decision  making.  The  documentation, 
listing,  and  output  of  each  program  is  as  follows: 

1 .  Program  Report 1 

This  program  prints  all  the  officers  in  alphabetical 
order  including  name,  serial  number,  rank,  the  unit  he 
belongs,  and  the  report  date. 

The  program  uses  the  following  structure: 

a.  The  necessary  memory  variables  are  initialized 
and  the  heading  of  the  report  is  printed. 

b.  The  MASTER  file  is  opened,  and  is  sorted  on  the 
key  'name'  to  the  temporary  file  TEMP,  in  ascending  order. 

c.  The  program  uses  the  sorted  file  TEMP,  and  exe¬ 
cutes  a  WHILE  loop  to  process  each  record  of  the  file. 

Within  the  WHILE  loop  the  program  performs  the  following: 

(1)  Stores  the  appropriate  field  values  to  the 
corresponding  memory  variables. 

(2)  Searches  RANKS  and  UNITS  files  and  retrieves 
the  appropriate  rank  name  and  the  title  of  the  unit. 

(3)  The  main  line  of  the  output  is  printed. 

This  line  includes  the  data  concerning  the  officer  whose 
record  is  being  processed.  A  line  counter  is  kept  to  control 
the  paging  of  the  output. 


d.  The  program  continues  with  the  next  record 
until  the  end  of  file  (EOF)  is  encountered. 

e.  The  file  TEMP  is  deleted,  and  the  MONITOR  file 
is  updated. 

The  program  listing  and  output  is  shown  in  the  next 
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********  PROGRAM  REPORT!  ******** 

*  This  program  prints  all  the  officers  in  alphabetical  order 

*  including  nname,  serial  number,  rank,  the  unit  he  belongs 

*  and  the  report  date 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OF  OFFICERS  IN  ALPHABETICAL  ORDER"  TO  tittle 
STORE  "===========-=========================="  TO  underline 

STORE  1  TO  seqnum 
STORE  0  TO  linecount 
STORE  "  "  TO  pname 

STORE  "  "  TO  pserno 

STORE  "  "  TO  preptdate 

STORE  "  "  TO  rankname 

STORE  "  "  TO  ptitle 

STORE  "  "  TO  mrank 

STORE  "  "  TO  munit 

SET  PRINT  ON 

*  Print  the  heading 


"+DATE( ) 


"+tittle 
"+underl ine 


?  " I SEQ# !  NAME 

??  "U  N  I  T  ;  REPTDATE  \ " 

Q  " - 


!  SERL#|  RANK  I 


STORE  linecount+9  TO  linecount 
SELECT  PRIMARY 
USE  master 


*  Sort  MASTER  file  in  alphabetical  order  of  the  officers 

*  names  into  the  temporary  file  TEMP,  and  use  this  file 

*  for  the  database  processing 

SORT  ON  name  TO  temp  ASCENDING 
USE  temp 

DO  WHILE  .NOT.  EOF 

STORE  name  TO  pname 
STORE  serno  TO  pserno 
STORE  reptdate  TO  preptdate 
STORE  rank  TO  mrank 


V.'.'  ‘--v.v  V 


STORE  unit  TO  munit 


*  Search  RANKS  file  with  key  the  field  'rank’  of  the 

*  officer's  records  and  get  the  appropriate  rank  name. 

SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &mrank 
IF  $(p.unit, 1, 1)  =  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

*  Find  the  unit  the  officer  belongs,  and  get  the  title 

*  of  the  unit 

USE  units  INDEX  units 

FIND  &munit 

STORE  title  TO  ptitle 

*  If  the  line  counter  exceeds  53,  continue  in  the  next  page 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

*  Print  the  data  concerning  the  officer 


I  I 

"  I "+STR(seqnum, 3 ) 

"+pname 
'■  +pserno 
"+rankname 
"+ptitle 

"+$( preptdate, 1, 2 )  +  "/"+$( preptdate,  3,  2)  +  "/" ; 
+$( preptdate,  5,  2) +  ■■ 

STORE  seqnum+1  TO  seqnum 
STORE  linecount +2  TO  linecount 
STORE  ■'  ■■  TO  pname 

STORE  "  "  TO  pserno 

STORE  "  "  TO  rankname 

STORE  "  '■  TO  ptitle 

STORE  "  "  TO  preptdate 

STORE  "  "  TO  mrank 

STORE  "  "  TO  munit 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 

ENDDO  WHILE  .NOT.  EOF 


?? 

?? 

?? 

?? 

?? 


*  Update  MONITOR  file,  delete  file  TEMP  and  return 


DO  monitr 

DELETE  FILE  temp. DBF 
RETURN 
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LIST  OF  OFFICERS  IN  ALPHABETICAL  ORDER 


N  A 

M  E 

SERL# 

RANK 

u 

NIT 

REPTDATE  ! 

Adams 

Garry 

J 

1030 

CPT 

2nd 

Inf  Bn 

09/20/84  ! 

Alkamo 

Jim 

P 

1097 

LTJG 

LST 

Argo 

07/20/83  ! 

Allen 

David 

E 

1029 

CPT 

2nd 

Inf  Bn 

09/16/83  ! 

Boris 

Peter 

H 

1084 

LT 

DD  Miaoulis 

07/16/84  ! 

Borrias 

Nick 

L 

1083 

LT 

LST 

Rhodes 

07/06/84  1 

Brown 

Peter 

R 

1028 

CPT 

1st 

Inf  Bn 

09/16/83  ! 

Bruce 

Mark 

P 

1027 

CPT 

1st 

Inf  Bn 

08/15/84  ! 

Byron 

Larry 

M 

1026 

CPT 

1st 

Inf  Bn 

08/21/84  ! 

Clark 

Tom 

L 

1025 

MAJ 

Signals  Bn 

07/22/83  I 

Cook 

Ryan 

K 

1023 

MAJ 

Armour  Bn 

07/21/84  ! 

Crosby 

Jerry 

J 

1022 

MAJ 

1st 

Arty  Bn 

07/20/83  ! 

Dalton 

John 

E 

1021 

MAJ 

4th 

Inf  Bn 

07/20/83  ! 

Denton 

Mark 

S 

1096 

LTJG 

LST 

Argo 

07/19/84  i 

Dorey 

J  im 

H 

1019 

MAJ 

2nd 

Inf  Bn 

07/20/84  ! 

Durram 

Frank 

M 

1020 

MAJ 

3rd 

Inf  Bn 

07/20/84  ! 

Emery 

Roy 

J 

1018 

MAJ 

1st 

Inf  Bn 

07/18/83  i 

Evans 

Isaac 

M 

1065 

ILT 

2nd 

Arty  Bn 

07/16/83  ! 

Evans 

Tom 

M 

1064 

ILT 

1st 

Arty  Bn 

07/15/83  ! 

Farmer 

Peter 

J 

1063 

ILT 

5th 

Inf  Bn 

07/13/84  1 

Faser 

Gas 

L 

1062 

ILT 

4th 

Inf  Bn 

07/12/83  ! 

Felton 

John 

K 

1061 

ILT 

3rd 

Inf  Bn 

07/10/84  i 

Foley 

Mark 

L 

1060 

ILT 

2nd 

Inf  Bn 

07/13/83  ! 
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23 

Ford 

Roger 

A 

1057 

CPT 

Sup/Trans  Bn 

24 

Foster 

Kliff 

J 

1058 

CPT 

Sup/Trans  Bn 

25 

Fox 

Don 

E 

1099 

LTJG 

LST  Rhodes 

26 

Frank 

Paul 

K 

1059 

ILT 

1st  Inf  Bn 

27 

Franko 

Jess 

L 

1098 

LTJG 

LST  Rhodes 

28 

Freemeun 

J  im 

E 

1056 

CPT 

Sup/Trans  Bn 

29 

Gan  os 

J  im 

A 

1085 

LT 

DD  Miaoulis 

30 

Garret 

Rex 

D 

1055 

CPT 

Signals  Bn 

31 

Gilman 

Perry 

M 

1054 

CPT 

Signals  Bn 

32 

Good 

John 

L 

1053 

CPT 

Signals  Bn 

33 

Gorby 

Glen 

G 

1051 

CPT 

Engineers  Bn 

34 

Gordon 

Jerry 

W 

1052 

CPT 

Engineers  Bn 

35 

Gorman 

Bruce 

L 

1095 

LTJG 

LST  Argo 

36 

Hogan 

Joe 

K 

1032 

CPT 

3rd  Inf  Bn 

37 

Horan 

Kevin 

L 

1031 

CPT 

2nd  Inf  Bn 

38 

Ingals 

Tomas 

R 

1035 

CPT 

4th  Inf  Bn 

39 

Jackson 

Peter 

M 

1033 

CPT 

3rd  Inf  Bn 

40 

Jensen 

Ron 

P 

1034 

CPT 

3rd  Inf  Bn 

41 

Jones 

Peter 

L 

1100 

LTJG 

LST  Rhodes 

42 

Kaan 

Dave 

J 

1001 

MG 

1st  Inf  Div 

43 

Kamenos 

Joe 

M 

1089 

LT 

DD  kanaris 

44 

Kane 

Bob 

R 

1002 

BG 

1st  Inf  Div 

45 

Karras 

Mike 

L 

1005 

LTC 

1st  Inf  Div 

46 

Keen 

Robt 

N 

1003 

COL 

1st  Inf  Div 

47 

King 

Lewis 

M 

1007 

LTC 

1st  Inf  Bn 

48 

Kirk 

Burt 

N 

1006 

LTC 

1st  Inf  Div 

49 

Kliff 

Frank 

E 

1024 

MAJ 

Engineers  Bn 
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07/28/84 

07/29/83 

07/22/84 

07/30/84 

07/21/83 

07/27/83 

07/10/84 

07/26/83 

01/2b/QA 

07/24/84 

07/22/84 

07/23/83 

07/19/83 

07/18/83 

09/20/84 

08/15/84 

07/20/84 

07/20/84 

07/23/83 

07/20/84 

07/14/83 

07/25/84 

U7/25/84 

08/26/83 

07/20/84 

08/22/83 

07/21/84 


Larsen  Allen  A 
Larson  Roger  K 
Layton  John  E 
Lemos  Tim  N 


Peters 


LT  j  DD  kanaris  1  07/13/83 

I  t 

LTC  j  1st  Inf  Div  I  08/24/84 

LTC  !  2nd  Inf  Bn  !  07/20/84 

I  I 

CPT  !  Engineers  Bn  !  07/21/83 

(  I 

CPT  j  Armour  Bn  j  07/20/84 

I  I 

CPT  I  Armour  Bn  !  07/19/83 

I  I 

LT  i  DD  kanaris  !  07/14/82 

I  I 

CPT  !  Armour  Bn  I  07/13/84 

I  t 

CPT  i  1st  Arty  Bn  !  07/07/84 

I  I 

CPT  1  2nd  Arty  Bn  !  07/06/83 

i  i 

CPT  !  2nd  Arty  Bn  !  07/13/83 

I  t 

CPT  !  2nd  Arty  Bn  !  07/11/84 

I  I 

ILT  !  Armour  Bn  !  07/17/84 

I  I 

ILT  1  Engineers  Bn  I  07/18/83 

I  I 

ILT  1  Signals  Bn  !  07/10/84 

I  I 

COMD  I  Navy  Command  |  07/10/84 

I  I 

DD  Squadron  I  07/20/84 

1 

1st  Inf  Div  1  07/12/82 

I 

DD  kanaris  |  07/15/82 

I 

DD  Themis  !  07/18/83 

I 

Sup/Trans  Bn  I  07/11/83 

t 

5bh  Inf  Bn  !  07/21/83 

I 
I 

DD  Themis  1  07/16/83 

I 

1st  Arty  Bn  |  07/22/83 

I 

2nd  Arty  Bn  1  07/20/84 

I 

3rd  Inf  Bn  !  07/18/83 

J 

4th  Inf  Bn  i  07/19/84 


77 

Potter 

Tom 

E 

1073 

CAPT 

LST  Squadron 

07/19/84 

78 

Quill 

Kelvin 

J 

1075 

CDR 

DD  kanaris 

07/19/83 

79 

Quinn 

Peter 

C 

1074 

CDR 

DD  Miaoulis 

07/12/83 

80 

Rigas 

Ben 

H 

1093 

LTJG 

DD  Themis 

07/17/83 

81 

Rivera 

Mario 

L 

1079 

LCDR 

DD  Miaoulis 

07/17/84 

82 

Roberts 

Ben 

J 

1077 

CDR 

LST  Argo 

07/19/83 

83 

Rodes 

James 

K 

1078 

CDR 

LST  Rhodes 

07/22/84 

84 

Rokos 

Nick 

A 

1076 

CDR 

DD  Themis 

07/18/84 

85 

Ross 

Allan 

J 

1080 

LCDR 

DD  kanaris 

07/25/84 

86 

Sanders 

James 

F 

1014 

LTC 

Armour  Bn 

07/20/84 

87 

Scott 

Paul 

V 

1015 

LTC 

Engineers  Bn 

08/15/83 

88 

Spencer 

Tim 

M 

1081 

LCDR 

DD  Themis 

07/08/84 

89 

Stanley 

Gris 

K 

1082 

LCDR 

LST  Argo 

07/09/83 

90 

Takas 

Costas 

L 

1086 

LT 

DD  Miaoulis 

07/11/84 

91 

Torres 

Alex 

A 

1017 

LTC 

Sup/Trans  Bn 

07/10/84 

92 

Turner 

Carlos 

B 

1016 

LTC 

Signals  Bn 

08/15/83 

93 

U1 Imam 

Rolf 

G 

1041 

CPT 

1st  Arty  Bn 

07/03/83 

94 

Ulrey 

Dan 

A 

1042 

CPT 

1st  Arty  Bn 

07/06/84 

95 

Victor 

David 

R 

1039 

CPT 

5th  Inf  Bn 

07/20/83 

96 

Vongel 

Mark 

E 

1040 

CPT 

5th  Inf  Bn 

07/15/83 

97 

Warren 

Geo 

M 

1036 

CPT 

4th  Inf  Bn 

08/15/84 

98 

Waters 

Gary 

L 

1038 

CPT 

5th  Inf  Bn 

07/15/84 

99 

Watson 

Ralph 

D 

1037 

CPT 

4th  Inf  Bn 

07/20/83 

100 

Z  ikas 

Tom 

J 

1087 

LT 

DD  Miaoulis 

07/12/84 

I 
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This  program  prints  all  the  officers  ordered  by  rank, 
and  within  the  rank  by  unit,  including  name,  unit,  and  duty. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  main  heading  of  the  list  is  printed. 

b.  We  create  a  copy  of  the  MASTER  file  into  file 
TEMP,  which  includes  only  the  fields  necessary  to  obtain  the 
output . 

c.  Since  dBASE  II  cannot  sort  a  file  on  more  than 
one  key  at  the  same  time,  we  do  two  consecutive  sorts.  The 
first  one  is  done  on  the  minor  key  'unit',  and  the  second  one 
on  the  major  key  'rank'.  For  the  purpose  of  these  sorts  we 
use  the  temporary  files  TEMPI  and  TEMP2  besides  TEMP. 

d.  Using  the  file  TEMP2  which  is  double  sorted  on 
the  desired  keys,  the  program  performs  a  WHILE  loop  to  proces 
this  file,  with  the  following  major  functions: 

(1)  The  field  "rank"  and  the  first  character 
of  the  unit  code  are  compared  to  the  memory  variables  'mrank' 
and  'funit'  respectively.  If  either  comparison  yields  a 
'false'  value  this  means  that  an  officer  of  the  different 
rank  or  different  service  has  been  encountered.  The  value 
of  the  field  'rank',  and  the  first  character  of  the  unit 
code,  are  stored  to  the  above  memory  variables,  in  order  to 
be  ready  for  the  next  comparison.  Then  the  heading  of  the 
new  rank  is  printed. 


(2)  The  current  field  values  are  stored  to  the 
corresponding  memory  variables. 

(3)  The  appropriate  unit  title,  and  duty  name 
are  retrieved  from  the  files  UNITS  and  DUTIES  respectively. 

(4)  The  main  line  of  the  output  is  printed,  and 
the  program  proceeds  to  the  next  record. 

e.  The  MONITOR  file  is  updated,  all  the  temporary 
files  are  deleted,  and  then  the  program  returns  to  SUBMENU2 . 

The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 


PROGRAM  REPORT2  ******** 


*  This  program  prints  all  the  officers  ordered  by  rank 

♦  and  unit  number  including  name,  unit  and  duty. 


ERASE 


*  Initialize  memory  variables 


STORE  0  TO  linecount 
STORE  "  TO  pname 

STORE  "  "  TO  fun it 
STORE  "  "  TO  mrank 

STORE  "  "  TO  munit 

STORE  "  "  TO  punit 

STORE  "  "  TO  mduty 

STORE  "  ••  TO  pduty 

STORE  T  TO  maintitle 

STORE  "========================================•■  TO  linel 

STORE  "======================••  TO  line2 

STORE  "****************************************"  TO  lines 
STORE  "**********************“  TO  line4 


"  TO  mduty 


TO  punit 


STORE 

STORE 

STORE 

STORE 


"  TO  pduty 


*  Print  the  heading 


SET  PRINT  ON 

9 


"+DATE( ) 


LIST  OF  OFFICERS  ORDERED  BY  RANK" 


?  Iine3+line4 

?  ■•*SEQ#1  NAME 

??  "DUTY  *" 

?  Iine3+line4 

STORE  linecount+8  TO  linecount 


UNIT 


*  Create  a  copy  of  the  MASTER  file  into  TEMP  including  only 

*  the  appropriate  fields  and  sort  TEMP  file  on  the  minor  key 

*  ’unit’  first  into  TEMPI  and  then  use  TEMPI  to  sort  the  file 

*  on  the  major  key  ’rank’  into  TEMP2 


SELECT  PRIMARY 
USE  master 

COPY  TO  temp  FIELD  serno, name, rank, unit,  duty 
USE  temp 

SORT  ON  unit  TO  tempi 
USE  tempi 

SORT  ON  rank  TO  temp2 
USE  temp2 

DO  WHILE  .NOT.  EOF 


♦  If  a  new  rank  or  an  officer  of  a  different  service 

*  is  encountered  print  the  rank  heading 

IF  rank  <>  mrank  .OR.  $( unit, 1,1)  <>  funit 
STORE  rank  TO  mrank 
STORE  $(unit, 1,1)  TO  funit 
STORE  1  TO  seqno 
STORE  T  TO  flag 

p 

7 

STORE  linecount+2  TO  linecount 
IF  linecount  >  53 
EJECT 

STORE  0  TO  1 inecount 
END  IF 
DO  CASE 

CASE  rank  =  "01" 

IF  $( unit ,  1 ,  1 )  =  "  1  '■ 

?  Iinel+line2 

?"  GENERALS 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  ADMIRALS 

?  Iinel+line2 
ENDIF 

CASE  rank  =  "02" 

IF  $(unit, 1,1)  =  " 1 " 

?  Iinel+line2 

?"  LT  GENERALS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  VICE  ADMIRALS" 

?  Iinel+line2 
ENDIF 

CASE  rank  =  "03" 

IF  $(unit, 1,1)  =  " 1 " 

?  Iinel+line2 

?"  MAJ  GENERALS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  REAR  ADMIRALS" 

?  Iinel+line2 
ENDIF 

CASE  rank  =  04" 

IF  $(unit, 1,1)  =  "1" 

?  Iinel+line2 

?"  BRIG  GENERALS" 

?  iinel+line2 
ELSE 

?  Iinel+line2 

?  "  COMMODORES" 

110 


?  Iinel+line2 
ENDIF 

CASE  rank  =  "05” 

IF  $(unit,l,l)  =  "1" 

?  Iinel+line2 

?  "  COLONELS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?  "  CAPTAINS" 

?  Iinel+line2 
ENDIF 

CASE  rank  =  "06" 

IF  $(unit,l,l)  =  "1" 

?  Iinei+line2 

?"  LT  COLONELS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?  "  COMMANDERS” 

?  Iinel+line2 
ENDIF 

CASE  rank  =  “07" 

IF  $(unit, 1,1)  =  "1" 

?  Iinel+iine2 

?  "  MAJORS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  LT  COMMANDERS” 

?  Iinel+line2 
ENDIF 

CASE  rank  =  "08" 

IF  $(unit, 1,1)  =  "1" 

?  Iinel+line2 

?  "  CAPTAINS" 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?"  LIEUTENANTS” 

?  Iinel+line2 
ENDIF 

CASE  rank  =  ''09” 

?  Iinel+line2 

?'■  1st  LIEUTENANTS 

?  Iinel+line2 

CASE  rank  =  "10" 

IF  $(unit, 1,1)  =  "1" 

?  Iinel+line2 

2nd  LIEUTENANTS 

?  Iinel+line2 
ELSE 

?  Iinel+line2 

?  ENSIGNS” 
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?  linel+lineZ 
ENDIF 
OTHERWISE 
ERASE 

STORE  F  TO  flag 

?  CHR(7)  * 

@  10,10  SAY  “ILLEGAL  RANK  CODE  ENCOUNTERED  IN  RECORD” 


@  12, 10  SAY  ”  WITH  SER 

STORE  1  TO  del 
DO  WHILE  del  <  50 

STORE  del+1  To  del 
ENDDO  WHILE 
ENDCASE 
IF  flag 

STORE  linecount+3  TO  linecount 
ENDIF 
ENDIF 


WITH  SERIAL  NUMBER  "+serno 


*  Store  field  values  to  temporary  memory  variables 


STORE  name  TO  pname 
STORE  unit  TO  munit 
STORE  duty  TO  mduty 
SELECT  SECONDARY 
USE  units  INDEX  units 


♦  Find  and  retrieve  the  unit  title  from  UNITS  file 


FIND  &munit 
IF  #  <>  0 

STORE  title  TO  pun it 
ELSE 

ERASE 
?  CHR(7) 

@9,9  SAY  "Record  with  key  "+munit+"  in  UNITS  file  not  found 
STORE  1  TO  del 
DO  WHILE  del  <  50 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDIF 


*  Find  and  retrieve  the  duty  name  from  DUTIES  file 


USE  duties  INDEX  duties 
FIND  &mduty 
IF  »  <>  0 

STORE  name  TO  pduty 
ELSE 
ERASE 
?  CHR(7) 

@9,9  SAY  "Record  with  key  "+mduty+"  in  DUTIES  file  not  found' 
STORE  1  TO  del 
DO  WHILE  del  <  50 

STORE  del+1  TO  del 


J»  ^  '  'i  ’  "•  **  •  ’»*•  "/ 


ENDDO  WHILE 
END  IF 

*  Print  the  main  line 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

Q  ••  I  (  I 

•  I  I  I 

??  ••  I  " 

?  " I "+STR(seqno, 3 ) 

??  " I  " +pname 
??  "j  '■+punit 
??  "  !  "  +pduty+  '•  I  " 

STORE  linecount+2  TO  linecount 
STORE  seqno+1  TO  seqno 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 

ENDDO  WHILE  .NOT.  EOF 

♦  Update  the  MONITOR  file  and  delete  the  temporary  files 
DO  monitr 

DELETE  FILE  temp. DBF 
DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
RETURN 
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Kirk 

Burt 

N 

1st 

Inf 

Div 

3rd  Office 

Manager 

4 

Olsen 

Joe 

N 

1st 

Inf 

Div 

4th  Office 

Manager 

5 

King 

Lewis 

M 

1st 

Inf 

Bn 

Commander 

6 

Kueny 

John 

S 

2nd 

Inf 

Bn 

Commander 

7 

Peters 

Mark 

J 

3rd 

Inf 

Bn 

Commander 

8 

Peters 

Nick 

K 

4th 

Inf 

Bn 

Commander 

9 

Palmer 

Bob 

L 

5th 

Inf 

Bn 

Commander 

10 

Patton 

Mike 

H 

1st 

Arty  Bn 

Commander 

11 

Perry 

Bill 

H 

2nd 

Arty  Bn 

Commander 

12 

Sanders 

James 

F 

Armour  Bn 

Commander 

13 

Scott 

Paul 

V 

Engineers  Bn 

Commander 

14 

Turner 

Carlos 

B 

Signals 

Bn 

Commander 

15 

Torres 

Alex 

A 

Sup/Trans  Bn 

Commander 

COMMANDERS 


!  1 

Quinn 

Peter 

C 

DD  Miaoulis 

Commanding 

1 

1 

Officer  1 

J 

i  2 

Quill 

Kelvin 

J 

DD  kanaris 

Commanding 

1 

Officer  I 

1 

!  3 

Rokos 

Nick 

A 

DD  Themis 

Commanding 

1 

Officer  | 

1 

!  4 

Roberts 

Ben 

J 

LST  Argo 

Commanding 

1 

Officer 

t 

!  5 

Rodes 

James 

K 

LST  Rhodes 

Commanding 

J 

Officer  1 

MAJORS 


I  1 

Emery  Roy  J 

1st  Inf  Bn 

1 

J 

Dty  Commander  1 

1 

!  2 

Dorey  Jim  H 

2nd  Inf  Bn 

( 

Dty  Commander  1 

1 

!  3 

Du r ran  Frank  M 

3rd  Inf  Bn 

f 

Dty  Commander  1 

1 

!  4 

Dalton  John  E 

4th  Inf  Bn 

1 

Dty  Commander  1 

5 

Crosby 

Jerry 

J 

1st  Arty  Bn 

Dty 

Commander 

6 

Cook 

Ryan 

K 

Armour  Bn 

Dty 

Commander 

7 

Kliff 

Frank 

E 

Engineers  Bn 

Dty 

Commander 

8 

Clark 

Tom 

L 

Signals  Bn 

Dty 

Commander 

1 

1  E-< 

1 

1  J 

1 

1 

C 

0  M  M  A  N 

D  E  R  S 

I  1 

Rivera 

Mario 

L 

DD  Miaoulis 

J 

Executive  Officer  i 

1 

!  2 

Ross 

Allan 

J 

DD  kanaris 

t 

Executive  Officer  \ 

1 

!  3 

Spencer 

Tim 

M 

DD 

Themis 

i 

Executive  Officer  1 

\ 

;  4 

Stanley 

Cris 

K 

LST 

Argo 

1 

Executive  Officer  I 

C 

A  P 

T  A  I 

N  S 

1 

1 

1  1 

1 

Byron 

Larry 

M 

1st 

Inf 

Bn 

Company 

J 

1 

Commander  1 

1 

!  2 

Bruce 

Mark 

P 

1st 

Inf 

Bn 

Company 

J 

Commander  I 

1 

i  3 

1 

Brown 

Peter 

R 

1st 

Inf 

Bn 

Company 

1 

Commander  1 

1 

1 

1  4 

A1  len 

David 

E 

2nd 

Inf 

Bn 

Company 

( 

Commander  1 

1 

!  5 

Adams 

Garry 

J 

2nd 

Inf 

Bn 

Company 

1 

Commander  1 

1 

1  6 

1 

Horan 

Kevin 

L 

2nd 

Inf 

Bn 

Company 

1 

Commander 

1 

1 

!  7 

1 

Hogan 

Joe 

K 

3rd 

Inf 

Bn 

Company 

1 

Commander  1 

1 

!  8 

I 

Jackson 

Peter 

M 

3rd 

Inf 

Bn 

Company 

1 

Commander  1 

J 

:  9 

Jensen 

Ron 

P 

3rd 

Inf 

Bn 

Company 

1 

Commander  1 

!  10 

1 

Ingals 

Tomas 

R 

4th 

Inf 

Bn 

Company 

Commander 

1 

!  11 

J 

Warren 

Geo 

M 

4  th 

Inf 

Bn 

Company 

( 

Commander  1 

1 

!  12 

1 

Watson 

Ralph 

D 

4th 

Inf 

Bn 

Company 

f 

Commander  | 

1 

!  13 

1 

Waters 

Gary 

L 

5  th 

Inf 

Bn 

Company 

J 

Commander 

1 

I  14 

Victor 

David 

R 

5  th 

Inf 

Bn 

Company 

l 

Commander  1 

Vongel 

Mark 

U1 Iman 

Rolf 

Ulrey 

Dan 

A 

Manos 

John 

K 

Moore 

Roger 

L 

Morton 

Brian 

C 

Morris 

Roy 

K 

Lopez 

Tom 

L 

Layton 

John 

E 

Larson 

Roger 

K 

Larsen 

Allen 

A 

Gorby 

Glen 

G 

Gordon 

Jerry 

W 

Good 

John 

L 

Gilman 

Perry 

M 

Garret 

Rex 

D 

Freeman 

J  im 

E 

Ford 

Roger 

A 

Foster 

Kliff 

J 

5th  Inf  Bn 
1st  Arty  Bn 
1st  Arty  Bn 
1st  Arty  Bn 
2nd  Arty  Bn 
2nd  Arty  Bn 
2nd  Arty  Bn 
Armour  Bn 
Armour  Bn 
Armour  Bn 
Engineers  Bn 
Engineers  Bn 
Engineers  Bn 
Signals  Bn 
Signals  Bn 
Signals  Bn 
Sup/Trans  Bn 
Sup/Trans  Bn 
Sup/Trans  Bn 


Company  Commamder 
Battery  Commander 
Battery  Commander 
Battery  Commander 
Battery  Commander 
Battery  Commander 
Battery  Commander 
Compainy  Commander 
Company  Commander 
Company  Commander 
Company  Commainder 
Company  Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Company  Commander 
Company  Commander 


LIEUTENANTS 


Boris 
Ganos 
Takas 
Z  ikas 


Peter  H 
Jim  A 
Costas  L 
Tom  J 


DD  Miaoulis 
DD  Miaoulis 
DD  Miaoulis 
DD  Miaoulis 


ASW  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 


Kontos  David  K 


DD  kanaris 


ASW  Officer 


Kamenos  Joe  M 
Lemos  Tim  N 
Borrias  Nick  L 


DD  kanaris 
DD  kanaris 
LST  Rhodes 


Navigation  Officer 
Commun/tion  Officer 
Executive  Officer 


1st  LIEUTENANTS 


1st  Inf  Bn 
2nd  Inf  Bn 
3rd  Inf  Bn 
4th  Inf  Bn 
5th  Inf  Bn 
1st  Arty  Bn 
2nd  Arty  Bn 
Armour  Bn 
Engineers  Bn 
Signals  Bn 
Sup/Trans  Bn 


Adjutant 
Adjutant 
Adjutant 
Adjutant 
Ad  jutaint 
Adjutant 
Adjutant 
Adjutant 
Adjutant 
Ad  juteint 
Adjutant 


1st  LIEUTENANTS 


Onasis  George  E 
Pappas  Nick  C 
R: 

Oscar  Tom  K 
Gorman  Bruce  L 
Denton  Mark  S 
Alkamo  Jim  P 
Franko  Jess  L 


DD 

kanaris 

DD 

Themis 

DD 

Themis 

DD 

Themis 

LST 

Argo 

LST 

Argo 

LST 

Argo 

LST 

Rhodes 

CIC  Officer 
ASW  Officer 
Commun/tion  Officer 
CIC  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 
Navigation  Officer 


9 

Fox 

Don 

E 

LST 

Rhodes 

1  Commun/tion  Officer 

1 

10 

Jones 

Peter 

L 

LST 

Rhodes 

1  CIC  Officer 

9 


3 .  Program  Reports 


This  program  prints  all  the  units  and  the  officers 
who  belong  to  a  particular  unit,  including  name,  rank,  and 
duty . 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  headlines  are  printed. 

b.  A  copy  of  the  MASTER  file  is  created  which  in¬ 
cludes  the  fields,  serial  number,  name,  rank,  unit,  and  duty. 
This  file  then  is  sorted  by  unit,  and  within  the  unit  by  rank. 

c.  The  above  finally  sorted  file,  is  processed 
sequentially  within  a  WHILE  loop,  whose  function  is  the 
following : 

(1)  The  field  'unit'  is  compared  to  the  field 
'unit'  of  the  previous  record.  If  they  are  not  equal,  this 
means  that  a  new  unit  has  been  encountered.  Then  the  program 
prints  the  title  and  location  of  the  unit. 

(2)  The  rank  and  duty  names  are  retrieved  from 
the  corresponding  files,  and  the  main  line  of  the  output 

is  printed. 

(3)  The  program  proceeds  with  the  next  record. 

d.  Before  the  program  returns,  it  updates  the  MONITOR 
file,  and  deletes  the  temporary  files. 

The  listings  and  the  output  of  the  program  are  shown 
in  the  next  pages. 
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**♦♦♦*♦*  PROGRAM  REPORTS  ******** 

*  This  program  prints  all  the  units  with  their 

*  officers,  including  name,  rank,  and  duty 

ERASE 

*  Initialize  memory  variables 


STORE  0  TO  linecount 

STORE  "  ■'  TO  pname 

STORE  "  ■'  TO  mrank 

STORE  “  '■  TO  prank 

STORE  "  "  TO  mduty 

STORE  "  "  TO  pduty 

STORE  "  "  TO  munit 

STORE  "  “  TO  punit 

STORE  "  "  TO  plocat 

STORE  1  TO  seqnum 

STORE  "*********************************“  TO  linel 

STORE  '■************************"  TO  line2 

STORE  •■========================================■•  TO  lines 


*  Print  the  heading 


LIST  OF  UNITS  WITH  THEIR  OFFICERS' 


NAME  !  RANK  I 

*'• 


STORE  linecount+8  TO  linecount 

*  Create  a  copy  of  the  MASTER  file  into  TEMP  including 

*  only  the  necessary  fields  and  sort  TEMP  file  on 

*  ascending  keys  ’unit'  and  ’rank’ 

SELECT  PRIMARY 
USE  master 

COPY  TO  temp  FIELD  serno, name, rank, unit , duty 
USE  temp 

SORT  ON  rank  TO  tempi 
USE  tempi 

SORT  ON  unit  TO  temp2 
USE  temp2 

DO  WHILE  .NOT.  EOF 
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*  If  the  current  unit  is  different  than  the  previous 

*  one  print  the  unit  heading 


IF  unit  <>  munit 

STORF  unit  TO  munit 
STORE  1  TO  seqnum 
IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

<v> 

<? 

STORE  linecount +2  TO  linecount 
IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

SELECT  SECONDARY 
USE  units  INDEX  units 
FIND  &munit 

?  "  ■'  +  line3 

?  '■  UNIT:  “+title+'‘  LOCATION:  "  +  location 

?  "  "+11003 

STORE  linecount +3  TO  linecount 
END  IF 

SELECT  PRIMARY 

*  Store  current  field  values  to  memory  variables 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  duty  TO  mduty 

*  Retrieve  rank  eund  duty  names 

SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &mrank 
IF  $(p. unit, 1, 1 )  =  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navyname  TO  prank 
END  IF 

USE  duties  INDEX  duties 

FIND  &mduty 

STORE  name  TO  pduty 

*  Print  the  main  line 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

9  I  I  I  » 

*  II  I  ( 
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.-.'A'  .■ :  ;■ ;  .•  '-.''v  '-'•i 


?  " 1 "+STR(seqnum, 3) 

??  "I  "+pname 
??  ■■  1  "+prank 
??  "1  "+pduty+"  1" 

STORE  linecount+2  TO  linecount 
STORE  seqnum+1  TO  seqnum 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 

ENDDO  WHILE  .NOT.  EOF 

*  Update  the  MONITOR  file  and  delete 

*  the  temporary  files 

DO  monitr 

DELETE  FILE  temp. DBF 
DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
RETURN 
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LIST  OF  UNITS  WITH  THEIR  OFFICERS 


♦SEQ#!  NAME  1  RANK  1  DUTY  * 


UNIT:  1st  Inf  Div  LOCATION:  Salinas 


Koom 

Peter 

H 

Karras 

Mike 

L 

K 

Olsen 


Commander 
Dty  Commander 
Chief  of  Staff 
1st  Office  Manager 
2nd  Office  Manager 
3rd  Office  Manager 
4th  Office  Manager 


UNIT:  1st  Inf  Bn  LOCATION:  Monterey 


Commander 
Dty  Commander 
Company  Commeinder 
Company  Commander 
Company  Commander 
Adjutant 


2nd  Inf  Bn  LOCATION:  Carmel 


n  S  I  LTC  1  Commander 

<  I 

I  t 

H  I  MAJ  I  Dty  Commander 
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Allen  David  E 


Company  Commander 
Company  Commander 


Adams  Garry  J 
Horan  Kevin  L 


F 


Company  Commander 
Adjutant 


UNIT:  3rd  Inf  Bn  LOCATION:  Salinas 


Peters 

Mark 

J 

Durran 

Frank 

M 

Hogan 

Joe 

K 

Jackson 

Peter 

M 

Jensen 

Ron 

P 

Felton 

John 

K 

Commander 
Dty  Commander 
Company  Commander 
Company  Commander 
Compauiy  Commander 
Ad  juteint 


UNIT:  4th  Inf  Bn  LOCATION:  Seaside 


Peters 

Nick 

K 

Dalton 

John 

E 

Ingals 

Tomas 

R 

Warren 

Geo 

M 

Watson 

Ralph 

D 

Faser 

Gas 

L 

Commander 
Dty  Commander 
Compeuiy  Commander 
Company  Commander 
Company  Commander 
Adjutant 


5th  Inf  Bn  LOCATION:  Pac  Grove 


Palmer 

Bob 

L 

:  LTC  ! 

1  I 

Commander 

Waters 

Gary 

L 

!  CPT  : 

1  1 

Company 

Commander 

Victor 

David 

R 

!  CPT  ! 

1  1 

Company 

Commander 

Vongel 

Mark 

E 

i  CPT  ! 

Company 

Commander 

fJI  * W  W*  W  P  M  LM  WTWT^WWWlOnWWWfWIWlWWPWl' 


» 

i 


m 


II  II 

;  5  I  Farmer  Peter  J  I  ILT  I  Adjutant 


UNIT:  1st  Arty 

Bn 

LOCATION:  Monterey 

1 

Patton 

Mike 

..... 

LTC 

Commander 

2 

Crosby 

Jerry 

J 

MAJ 

Dty  Commander 

3 

U1 Iman 

Rolf 

G 

CPT 

Battery  Commander 

4 

Ulrey 

Dan 

A 

CPT 

Battery  Commander 

5 

Manos 

John 

K 

CPT 

Battery  Commander 

6 

Evans 

Tom 

M 

ILT 

Adjutant 

UNIT:  2nd  Arty 

Bn 

LOCATION:  Santa  Cruz 

1 

Perry 

Bill 

H 

LTC 

Commander 

2 

Moore 

Roger 

L 

CPT 

Battery  Commander 

3 

Morton 

Brian 

C 

CPT 

Battery  Commander 

4 

Morris 

Roy 

K 

CPT 

Battery  Commander 

5 

Evans 

Isaac 

M 

ILT 

Adjutant 

UNIT:  Armour  Bn 

LOCATION;  Salinas 

1 

Sanders 

James 

F 

LTC 

Commander 

2 

Cook 

Ryan 

K 

MAJ 

Dty  Commander 

3 

Lopez 

Tom 

L 

CPT 

Company  Commander 

4 

Layton 

John 

E 

CPT 

Company  Commander 

5 

Lar  son 

Roger 

K 

CPT 

Company  Commander 

6 

Newman 

Ben 

K 

ILT 

Adjutant 
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UNIT:  Engineers  Bn  LOCATION:  Monterey 


1 

Scott 

Paul 

V 

LTC 

Commauider 

2 

Kliff 

Frank 

E 

MAJ 

Dty  Commander 

3 

Larsen 

Allen 

A 

CPT 

Company  Commander 

4 

Gorby 

Glen 

G 

CPT 

Company  Commauider 

5 

Gordon 

Jerry 

W 

CPT 

Compamy  Commander 

6 

Newton 

John 

J 

ILT 

Adjutant 

UNIT:  Signals 

Bn 

LOCATION:  Pac  Grove 

1 

Turner 

Carlos 

B 

LTC 

Commander 

2 

Clark 

Tom 

L 

MAJ 

Dty  Commander 

3 

Good 

John 

L 

CPT 

Company  Commander 

4 

Gilman 

Perry 

M 

CPT 

Company  Commander 

5 

Garret 

Rex 

D 

CPT 

Company  Commander 

6 

Norton 

Denis 

E 

ILT 

Adjutant 

UNIT:  Sup/Trans  Bn 

LOCATION;  Carmel 

!  1 

Torres 

Alex 

A 

LTC 

Commander 

!  2 

F  reeman 

Jim 

E 

CPT 

Company  Commander 

!  3 

Ford 

Roger 

A 

CPT 

Company  Commander 

!  4 

Foster 

Kliff 

J 

CPT 

Company  Commander 

1  5 

Owens 

Bill 

L 

ILT 

Adjutant 

UNIT:  Navy  Command 

LOCATION:  Monterey 

1 

I 

:  1 

Ocasio 

Jim 

E 

COMD 

Commander 

UNIT:  DD  Miaoulis  LOCATION:  Monterey 


Quinn  Peter  C 
Rivera  Mario  L 
Boris  Peter  H 
Ganos  Jim  A 
Takas  Costas  L 
Zikas  Tom  J 


Commanding  Officer 
Executive  Officer 
ASW  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 


UNIT:  DD  kanaris 


Quill 

Kelvin 

J 

Ross 

Allan 

J 

Kontos 

David 

K 

Kamenos 

Joe 

M 

Lemos 

Tim 

N 

Onas is 

George 

E 

UNIT:  DD  Themis 


LOCATION :  Monterey 


Commanding  Officer 
Executive  Officer 
ASW  Officer 
Navigation  Officer 
Commun/tion  Officer 
CIC  Officer 


LOCATION:  Monterey 


Rokos 

Nick 

Spencer 

Tim 

Pappas 

Nick 

Commanding  Olficer 
Executive  Officer 
ASW  Officer 


Commun/tion  Officer 


5  I  Oscar  Tom 


K  1  LTJG  1  CIC  Officer 


UNIT:  LST  Squadron  LOCATION:  Monterey 


1 

Potter 

Tom 

E 

CAPT 

Commander 

UNIT:  LST  Argo 

LOCATION:  Monterey 

1 

Roberts 

Ben 

J 

CDR 

Commanding  Officer 

2 

Stanley 

Cris 

K 

LCDR 

Executive  Officer 

3 

Gorman 

Bruce 

L 

LTJG 

Navigation  Officer 

4 

Denton 

Mark 

S 

LTJG 

Commun/tion  Officer 

5 

Alkamo 

Jim 

P 

LTJG 

CIC  Officer 

UNIT:  LST  Rhodes 

LOCATION :  Monterey 

1 

Rodes 

James 

K 

CDR 

Commanding  Officer 

2 

Borrias 

Nick 

L 

LT 

Executive  Officer 

3 

Franko 

Jess 

L 

LTJG 

Navigation  Officer 

4 

Fox 

Don 

E 

LTJG 

Commun/tion  Officer 

5 

Jones 

Peter 

L 

LTJG 

CIC  Officer 

This  program  prints  all  the  officers  who  have  been 
awarded  a  degree  in  the  sciences  with  an  emphasis  other  than 
military  sciences.  This  list  includes  name,  rank,  science, 
and  degree,  and  is  sorted  by  name. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  heading  of  the  report  is  printed. 

b.  The  program  uses  two  temporary  files,  TEMPI  and 
TEMP 2 .  The  MASTER  file  is  used  to  create  a  copy  into  TEMPI, 
which  includes  only  the  necessary  fields,  serial  number, 
name,  rank,  education,  and  degree.  Only  the  officers  whose 
the  field  'educat'  is  not  empty  are  copied.  Then  the  file 
TEMPI  is  sorted  on  key  'name’  into  the  file  TEMP2. 

c.  Then  the  program  performs  a  WHILE  loop  to  process 
each  record  of  the  file.  More  specifically  within  the  WHILE 
loop  it  performs  the  following: 

(1)  Stores  the  current  field  values  to  the 
temporary  memory  variables. 

(2)  Retrieves  from  RANKS  and  SCIENCES  files  the 
appropriate  rank  name  and  science  name  respectively. 

(3)  A  CASE  statement  is  executed  to  store  the 
appropriate  degree  to  the  corresponding  variable. 

(4)  The  main  line  of  the  output  is  printed. 

d.  The  program  proceeds  with  the  next  record  until 
the  end  of  file  (EOF)  is  encountered. 


e.  Before  the  program  returns  it  deletes  the 


temporary  files  TEMPI  and  TEMP2,  and  updates  MONITOR  file. 

The  listing  and  output  of  the  programs  are  shown  in 
the  next  pages. 
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********  PROGRAM  REPORT4  ******** 

*  This  program  prints  all  the  officers  in  alphabetical  order 

*  who  have  been  awarded  a  degree  in  sciences  other  than 

*  military  ones 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OF  OFFICERS  WITH  NON-MILITARY  STUDIES"  TO  title 


STORE  "=========================================="  TO  underline 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "  "  TO  mscience 

STORE  "  "  TO  meducat 

STORE  "  "  TO  pdegree 

STORE  "  "  TO  mrank 


*  Print  the  list  heading 

SET  PRINT  ON 
? 

??  "  "+DATE() 

? 

??  "  _ " 

?  "  "+title 

?  "  "+underline 

«p 

p  " _ 

«?<?  " _ 

?  "ISEQ^t!  NAME  I  RANK  1  SCIENCE 

??  "  1  DEGREE  I " 

" _ 

«?<?  ■■ _ " 

STORE  linecount+9  TO  linecount 

*  Copy  to  temporary  file  TEMPI  those  officers  whose  field 

*  'educat’is  not  empty  eind  only  the  necessary  fields, 

*  and  then  sort  this  file  by  name  into  file  TEMP2 

SELECT  PRIMARY 
USE  master 

COPY  TO  tempi  FIELD  serno,  nsime,  rank,  educat,  degree ; 

FOR  educat  <>  " 

USE  tempi 

SORT  ON  name  TO  terap2  ASCENDING 
USE  temp2 

DO  WHILE  .NOT.  EOF 


♦  Store  current  field  values  to  memory  variables 


STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  educat  TO  meducat 

*  Retrieve  the  appropriate  rank  name  and  science  naune 

SELECT  SECONDARY 
USE  rsuiks  INDEX  ranks 
FIND  &mrank 

IF  $(p. serno, 1, 1 )  =  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

USE  sciences  INDEX  sciences 

FIND  &meducat 

STORE  name  TO  mscience 

*  Store  the  appropriate  degree  depending  on  the  value  of  the 

*  field  "degree"  of  TEMP2  to  the  corresponding  variable 

DO  CASE 

CASE  p. degree  =  "B" 

STORE  "Bachelor"  TO  pdegree 
CASE  p. degree  =  "M" 

STORE  "Master  "  TO  pdegree 
CASE  p. degree  =  "P" 

STORE  "Ph.D  "  TO  pdegree 
OTHERWISE 
ERASE 
?  CHR(7) 

@3,30  SAY  "ILLEGAL  DEGREE" 

@  5,27  SAY  p.degree+"  "+p.name 
STORE  0  TO  del 
DO  WHILE  del  <  50 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDCASE 

*  Print  the  main  line  of  the  output 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

O  "II  II" 

*  II  II 

??  "  ! 

?  " I "+STR( seqnum, 3 ) 

??  "I  "+pname 
??  "  1  "+rankname 

??  "1  "+mscience 
??  "  1  "+pdegree+"  J" 

STORE  seqnum+1  TO  seqnum 
STORE  linecount+2  TO  linecount 


STORE  "  "  TO  pname 

STORE  "  "  TO  rankname 

STORE  ■■  "  TO  mscience 

STORE  "  “  TO  meducat 

STORE  "  "  TO  pdegree 

STORE  "  "  TO  mrank 

SELECT  PRIMARY 

SKIP 

ENDDO  WHILE  .NOT.  EOF 
DO  monitr 

*  Delete  the  temporary  files  TEMPI  and  TEMP2 

DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
RETURN 
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LIST  OF  OFFICERS  WITH  NON-MILITARY  STUDIES 


N 

A  M  E 

RANK 

SCIENCE 

DEGREE 

Adams 

Garry 

J 

CPT 

Oper  Research 

Bachelor 

Alkamo 

J  im 

P 

ILT 

Meteorology 

Bachelor 

Borrias 

Nick 

L 

CPT 

Weapons 

Master 

Bruce 

Mark 

P 

CPT 

Oper  Research 

Master 

Clark 

Tom 

L 

MAJ 

Economics 

Master 

Crosby 

Jerry 

J 

MAJ 

Mec  Engineering 

Bachelor 

Faser 

Gas 

L 

ILT 

Meteorology 

Bachelor 

Frank 

Paul 

K 

ILT 

Management 

Master 

F  reeman 

Jim 

E 

CPT 

Management 

Bachelor 

Ganos 

J  im 

A 

CPT 

Weapons 

Master 

Gordon 

Jerry 

W 

CPT 

Comp  Science 

Ph.  D 

Jensen 

Ron 

P 

CPT 

Info  Systems 

Bachelor 

Kaan 

Dave 

J 

MG 

Mathematics 

Bachelor 

Kamenos 

Joe 

M 

CPT 

Oceanography 

Bachelor 

King 

Lewis 

M 

LTC 

Chemistry 

Bachelor 

Koom 

Peter 

H 

LTC 

Physics 

Bache lo r 

Lopez 

Tom 

L 

CPT 

Comp  Science 

Bachelor 

Morton 

Brian 

C 

CPT 

Comp  Science 

Master 

Newman 

Ben 

K 

ILT 

Meteorology 

Bachelor 

Norton 

Denis 

E 

ILT 

Med i c ine 

Bachelor 

Ocas io 

Jim 

E 

BG 

Weapons 

Mas  ter 

Ode  1 lo 

Bruno 

A 

COL 

Weapons 

Maste  r 
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Olsen 

Joe 

N 

Onasis 

George 

E 

Palmer 

Bob 

L 

Pappas 

Nick 

C 

Potter 

Tom 

E 

Quinn 

Peter 

C 

Rigas 

Ben 

H 

Roberts 

Ben 

J 

Ross 

Allan 

J 

Spencer 

Tim 

M 

Turner 

Carlos 

B 

Ulrey 

Dan 

A 

Watson 

Ralph 

D 

Zikas 

Tom 

J 

Architecture 

Ship  Building 

Aeronautics 

Ship  Building 

Weapons 

Weapons 

Ship  Building 

Ship  Building 

Weapons 

Weapons 

El  Engineering 
Comp  Systems 
Comp  Systems 
Weapons 


Bachelor 

Master 

Master 

Master 

Master 

Master 

Ph.  D 

Master 

Ph.  D 

Master 

Bachelor 

Master 

Master 

Master 


5.  Program  Reports 


This  program  prints  all  the  officers  who  speak 
foreign  languages.  The  list  is  sorted  by  language  and  name 
and,  includes  the  language  spoken  as  a  heading,  name,  rank, 
and  unit. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized. 

b.  A  list  of  all  the  languages  is  displayed  on  the 
screen  and  the  user  is  prompted  to  select  a  particular,  or 
all  the  languages  to  be  printed. 

c.  Depending  on  the  user's  choice  the  program  creates 
a  copy  fo  the  MASTER  file  to  temporary  file  TEMP  which  includes 
all  the  officers  who  speak  any  or  a  particular  language.  If 
the  user  enters  a  wrong  selection,  the  program  goes  back  to 
step  (b) . 

d.  The  main  heading  of  the  output  is  printed. 

e.  If  the  user  decides  to  print  all  the  languages, 
then,  the  program  sorts  the  created  copy  on  ascending  keys 
'forlang'  and  'name'  into  file  TEMP2,  and  a  WHILE  loop  is 
executed  to  make  the  process  which  includes: 

(1)  The  file  TEMP2  is  read  sequentially.  The 
field  'forlag'  is  compared  to  the  variable  'lang'  which  con¬ 
tains  the  value  of  the  field  'forlag'  of  the  previous  record. 

If  it  is  different,  this  means  that  we  have  a  new  language, 
whose  name  is  printed  as  a  heading. 
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(2)  The  program  retrieves  the  rank  and  unit 
names,  from  the  corresponding  files,  and  prints  the  main 


line  of  the  output. 

(3)  The  process  is  continued  with  the  next 

record . 

f.  If  the  user  decides  to  print  a  particular  lan¬ 
guage,  the  corresponding  language  heading  is  printed,  and 
the  previously  created  copy  is  sorted  by  name,  into  TEMPI. 

g.  Then  a  WHILE  loop  is  executed  which  performs 
the  same  things  as  above,  except  the  comparison,  because 
now  we  have  only  one  language. 

h.  At  the  end  all  the  temporary  files  are  deleted, 
the  monitor  file  is  updated,  and  the  program  returns  to 
SUBMENU2 . 

The  listing  and  output  of  the  program  are  shown  in 
the  next  pages. 
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PROGRAM  REPORTS  ******** 

*  This  program  prints  the  officers  who  speak  a  particular 

*  or  any  foreign  language 

ERASE 

SELECT  PRIMARY 

*  Initialize  memory  variables 

STORE  4  TO  vert 

STORE  " _ ■■  TO  line 

STORE  ••============■•  TO  linel 

STORE  ■■  "  TO  lang 

STORE  "  "  TO  mlang 

STORE  "  ■’  TO  pname 

STORE  "  "  TO  mrank 

STORE  '•  "  TO  munit 

STORE  "  "  TO  prank 

STORE  '■  "  TO  punit 

STORE  0  TO  linecount 

STORE  1  TO  seqnum 

*  Display  on  the  screen  the  list  of  languages  and  ask  the 

*  user  to  make  his  choice 

STORE  T  TO  wrong 
DO  WHILE  wrong 
ERASE 

@1,30  SAY  "LANGUAGES  LIST" 

@  2,30  SAY  "==============" 

@3,30  SAY  "00 _ ALL" 

USE  forlaings 
DO  WHILE  .NOT.  EOF 

@  vert, 30  SAY  code+1 ine+name 

STORE  vert+1  TO  vert 

SKIP 

ENDDO  WHILE 

@  vert+2,27  SAY  "Make  your  selection” 

@  vert+4, 27  SAY  "Enter  two  blanks  to  exit" 

STORE  4  TO  vert 
STORE  "  "  TO  choice 

ACCEPT  TO  choice 
IF  choice  =  " 

USE 

RETURN 

ENDIF 

♦  Create  the  appropriate  copy  according  to  the  user’s 

*  selection 

USE  master 
IF  choice  =  "00" 

COPY  TO  temp  FIELD  name, rank, unit , forlang ; 


FOR  forlang  <>  " 

STORE  F  TO  wrong 
ELSE 

IF  VAL( choice)  >=  01  .AND.  VAL( choice)  <=  16 

COPY  TO  temp  FIELD  name, rank, unit  FOR  forlang  =  choice 
STORE  F  TO  wrong 
ELSE 

*  If  the  user  enters  a  wrong  number,  display  an  error 

♦  message  amd  give  him  another  chance 

ERASE 

@  9,  18  SAY  choice+‘‘  is  an  illegal  choice,  try  again" 

?  CHR(7) 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
END  IF 
END  IF 

ENDDO  WHILE  wrong 

*  Print  the  main  heading 
ERASE 

SET  PRINT  ON 

?  ”  "+DATE() 

9  '•  - " 

?  "  LIST  OF  OFFICERS  WHO  SPEAK  FOREIGN  LANGUAGES" 

?  "  ============================================" 

9 

9 

^  ^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^4^  ^ 

?  "*SEQ<tl  NAME  I  RANK  1  UNIT  *' 

STORE  linecount+9  TO  linecount 

*  Do  the  appropriate  process  depending  on  the 

*  user's  request 

IF  choice  =  "00" 

*  Sort  the  created  copy  on  ascending  keys 

♦  'forlang'  and  'name' 

USE  temp 

SORT  ON  name  TO  tempi 
USE  tempi 

SORT  ON  forlang  TO  terap2 
USE  temp2 

DO  WHILE  .NOT.  EOF 


*  If  a  new  code  for  the  field  'forlang'  is  encountered 

*  print  the  new  language  heading 


IF  forlang  <>  lang 

STORE  forlang  TO  lang 
STORE  forlang  TO  mlang 
STORE  1  TO  seqnum 

<j> 

STORE  linecount+2  TO  linecount 
IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 

SELECT  SECONDARY 

USE  forlangs  INDEX  forlangs 

FIND  &inlang 

?  "  "+linel 

?  ‘  "+name 

?  ■■  "  +  linel 

STORE  linecount+3  TO  linecount 
END  IF 

♦  Store  current  field  values  to  memory  variabl 

SELECT  PRIMARY 
STORE  naune  TO  pname 
STORE  rank  TO  mrank 
STORE  unit  TO  munit 

♦  Retrieve  rank  and  unit  names 

SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &mr£uik 
IF  $( munit, 1,1)  =  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navyname  TO  prank 
END  IF 

USE  units  INDEX  units 

FIND  &munit 

STORE  title  TO  punit 

♦  Print  the  main  line 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 

'•II  I 

I  t  I 

I  •• 

I 

"  I  "  +STR( seqnum, 3 ) 

+ pname 
"  +prank 
"+pu:iit+' 


END  IF 
o 

??  '■ 
p 

pp  "  I 

»  •  I 

P*?  ••  I 

*  •  I 

••  I 

•  •  1 


I  •• 


STORE  seqnum+l  TO  seqnum 
STORE  linecount+2  TO  linecount 

*  Continue  with  the  next  record 

SELECT  PRIMARY 
SKIP 

ENDDO  WHILE 


*  Handle  the  case  where  the  user  has  requested 

*  a  list  of  those  officers  who  speak  a 

*  particular  language 

SELECT  SECONDARY 

USE  forlangs  INDEX  forlangs 


FIND  &choice 

<? 

7 

? 

"+linel 

? 

■■+name 

? 

"+linel 

STORE  linecount+5  TO  linecount 

*  Sort  the  created  copy  in  ascending  order 

*  with  key  'name' 

SELECT  PRIMARY 
USE  temp 

SORT  ON  name  TO  tempi 
USE  tempi 

DO  WHILE  -NOT.  EOF 

*  Store  current  field  values  to  memory  variables 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  unit  TO  munit 

*  Get  the  rank  and  unit  names 

SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &mrank 
IF  $(p. unit, 1, 1 )  =  "1" 

STORE  armyname  TO  prank 
ELSE 

STORE  navyname  TO  prank 
ENDIF 

USE  units  INDEX  units 

FIND  &munit 

STORE  title  TO  pun  it 

*  Print  the  main  line 
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IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 


?  "  j  "+STR(seqnuin,  3 ) 

??  “ 1  "+name 

??  "  I  "+prank 

??  ••  1  "+punit+"  !’* 

STORE  seqnum+1  TO  seqnum 
STORE  linecount+2  TO  linecount 

*  Proceed  with  the  next  record 

SELECT  PRIMARY 
SKIP 

ENDDO  WHILE 
ENDIF 

*  Delete  the  temporary  files 

IF  choice  =  "00" 

DELETE  FILE  temp. DBF 
DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
ELSE 

DELETE  FILE  temp. DBF 
DELETE  FILE  tempi. DBF 
ENDIF 


*  Update  MONITOR  file  and  return 


DO  monitr 
RETURN 


LIST  OF  OFFICERS  WHO  SPEAK  FOREIGN  LANGUAGES 


*SEQir!  NAME  :  RANK  !  UNIT  * 


English 


1 

Allen 

David 

E 

CPT 

2nd  Inf  Bn 

2 

Borrias 

Nick 

L 

LT 

LST  Rhodes 

3 

Cook 

Ryan 

K 

MAJ 

Armour  Bn 

4 

Dalton 

John 

E 

MAJ 

4th  Inf  Bn 

5 

Farmer 

Peter 

J 

ILT 

5th  Inf  Bn 

6 

Ford 

Roger 

A 

CPT 

Sup/Trans  Bn 

7 

Fox 

Don 

E 

LTJG 

LST  Rhodes 

8 

Ganos 

J  ira 

A 

LT 

DD  Miaoulis 

9 

Garret 

Rex 

D 

CPT 

Signals  Bn 

10 

Gorby 

Glen 

G 

CPT 

Engineers  Bn 

11 

Gorman 

Bruce 

L 

LTJG 

LST  Argo 

12 

Jackson 

Peter 

M 

CPT 

3rd  Inf  Bn 

13 

Kaan 

Dave 

J 

MG 

1st  Inf  Div 

14 

Karras 

Mike 

L 

LTC 

1st  Inf  Div 

15 

Keen 

Robt 

N 

COL 

1st  Inf  Div 

16 

Larson 

Roger 

K 

CPT 

Armour  Bn 

17 

Manos 

John 

K 

CPT 

1st  Arty  Bn 

18 

Newton 

John 

J 

ILT 

Engineers  Bn 

19 

Onasis 

George 

E 

LTJG 

DD  kanaris 

20 

Owens 

Bill 

L 

ILT 

Sup/Trans  Bn 

21 


Palmer  Bob 


L 


LTC 


5th  Inf  Bn 


1  22 

Perry 

Bill 

H 

LTC 

!  2nd 

Arty  Bn 

!  23 

Peters 

Mark 

J 

LTC 

i  3rd 

Inf  Bn 

!  24 

Quill 

Kelvin 

J 

CDR 

DD  kanaris 

I  25 

Scott 

Paul 

V 

LTC 

Engineers  Bn 

:  26 

Victor 

David 

R 

CPT 

I  5th 

Inf  Bn 

German 

1 

{ 

1  1 

King 

Lewis 

M 

LTC 

1 

1st 

Inf  Bn 

Italian 

1 

1 

1  1 

Dorey 

Jim 

H 

MAJ 

2nd 

Inf  Bn 

French 

!  1 

Bruce 

Mark 

P 

CPT 

1st 

Inf  Bn 

1  2 

Torres 

Alex 

A 

LTC 

Sup/Trans  Bn 

Spanish 

!  1 

Evans 

Isaac 

M 

ILT 

2nd 

Arty  Bn 

i  2 

Ingals 

Tomas 

R 

CPT 

4th 

Inf  Bn 

Turkish 

1 

Potter 

Tom 

E 

CAPT 

LST 

Squadron 

2 

Roberts 

Ben 

J 

CDR 

L3T 

Argo 
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Arabi^ 


Kamenos 

Joe 

M 

LT 

Rivera 

Mario 

L 

LCDR 

Japanese 

Alkamo 

J  im 

P 

LTJG 

Clark 

Tom 

L 

MAJ 

Signals  Bn 

Chinese 

Horan 

Kevin 

L 

CPT 

2nd 

Inf  Bn 

Morton 

Brian 

C 

CPT 

2nd 

Arty  Bn 

Portuguese 

Frank 

Paul 

K 

ILT 

1st 

Inf  Bn 

Watson 

Ralph 

D 

CPT 

4th 

Inf  Bn 

Rus 

s  ian 

Ocasio 

Jim 

E 

COMD 

Navy  Command 

Spencer 

Tim 

M 

LCDR 

DD 

Themis 

Bulgarian 


I  I 


Z  ikas 


Tom 


J 


LT 


DD  Miaoulis 


Korean 


1 

1 

1  1 

Rigas 

1 

Ben  H  I 

LTJG 

1 

DD  Themis 

Danish 

1 

» 

1  ! 

U1 Iman 

Rolf  G  ! 

CRT 

1st  Arty  Bn 

Swedish 

1 

1 

1  : 

1 

Felton 

1 

John  K  : 

1 

ILT 

3rd  Inf  Bn 

1 

2  I 

Lopez 

1 

Tom  L  ! 

CRT 

Armour  Bn 

Dutch 

1 

i 

1  I 

Good 

1 

1 

John  L  I 

CRT 

1 

Signals  Bn 
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This  program  lists  all  the  officers  in  alphabetical 
order,  including  name,  rank,  marital  status,  and  number  of 
children . 

The  program  has  the  following  structure: 

a.  The  appropriate  memory  variables  are  initialized 
and  the  main  titles  are  printed. 

b.  We  use  two  temporary  files,  TEMPI  and  TEMP 2 .  The 
first  one  is  used  for  creating  a  copy  from  MASTER  file,  and 
which  includes,  serial  number,  name,  rank,  marital  status, 
and  number  of  children,  i.e.  only  the  necessary  information 
for  creating  the  report.  Then  this  file  is  sorted  by  name 
into  the  file  TEMP 2 . 

c.  Then  the  main  process  of  the  program  is  executed 
within  a  WHILE  loop  with  the  following  functions: 

(1)  The  current  field  values  are  stored  to  the 
memory  variables. 

(2)  The  appropriate  rank  name  is  retrieved  from 
RANKS  file  and  marital  status  is  stored  to  the  corresponding 
variable,  depending  on  the  value  of  the  field  'marstat',  of 
the  file  TEMP 2 . 

(3)  Then  the  program  prints  the  main  line  and 
proceeds  with  the  next  record. 

d.  At  the  end  of  the  WHILE  loop  the  program  deletes 
the  files  TEMPI  and  TEMP2,  and  then  returns  to  the  calling 


program. 


;*t;4f*****)it  PROGRAM  REPORTS  ****ifi*** 


*  This  program  lists  all  the  officers  in  alphabetical  order 

*  including  name,  rank,  marital  status,  and  number  of  children 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OF  OFFICERS  INCLUDING  MARITAL  STATUS"  TO  title 


STORE  "=========================================■•  TO  underline 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "  "  TO  pmarstat 

STORE  "  "  TO  pchildren 

STORE  "  "  TO  prank 

STORE  "  "  TO  mrank 


*  Print  the  list  heading 
SET  PRINT  ON 

??  "  "+DATE{) 

<p 

'■  _ '• 

?  "  "+title 

?  “  "+underline 

<p 

?  " _ " 

<P7  " _ •• 

?  "1SEQ«!  NAME  1  RANK  I  MARITAL" 

??  "STATUS  !  CHILDREN  I" 

«?  " _ ■' 

■' _ •• 

STORE  linecount+9  TO  linecount 

*  Copy  MASTER  file  to  temporary  file  TEMPI  including  only  the 

*  necessary  fields,  and  sort  this  file  by  name  into  TEMP2 

SELECT  PRIMARY 
USE  master 

COPY  TO  tempi  FIELD  serno, name, rank, raarstat, chi Idren 
USE  tempi 

SORT  ON  name  TO  temp2  ASCENDING 
USE  temp2 

DO  WHILE  .NOT.  EOF 

*  Store  current  field  values  to  memory  variables 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  raarstat  TO  pmarstat 


STORE  children  TO  pchildren 
*  Get  the  appropriate  rank  name 


SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &mrank 

IF  $(p. serno, 1, 1)  =  "I" 
STORE  armynfiune  TO  prank 
ELSE 

STORE  navyname  TO  prank 
END  IF 


*  Store  the  appropriate  marital  status  name 
DO  CASE 

CASE  p.marstat  =  "M" 

STORE  "Married  “  TO  pmarstat 
CASE  p.marstat  =  "U" 

STORE  “Unmarried"  TO  pmarstat 
CASE  p.marstat  =  "D" 

STORE  "Divorced  "  TO  pmarstat 
OTHERWISE 
ERASE 
?  CHR(7) 

@  10,30  SAY  "ILLEGAL  MARITAL  STATUS 
@  12,30  SAY  p.  marstat +  "***" +p.  nzmie 
STORE  1  TO  del 
DO  WHILE  del  <  50 

STORE  del+1  TO  del 
ENDDO 
ENDCASE 


*  Print  the  main  line  of  the  list 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
ENDIF 

<p 

??  " 

7 

p'?  "  I 

•  '  I 

cpp  I 

•  •  I 

cpp  -  I 

•  •  I 

??  " 

STORE  seqnum+1  TO  seqnura 
STORE  linecount+2  TO  linecount 
STORE  "  '■  TO  pname 

STORE  "  "  TO  pmarstat 

STORE  "  "  TO  prank 

STORE  "  "  TO  pchildren 
STORE  "  "  TO  mrank 

SELECT  PRIMARY 


"II  I 

I  I  I 

I  I  •• 

i  I 

" 1 "+STR( seqnum, 3 ) 

"  -t-pnarae 
" +prank 
"  -t-pmarstat 

I  "+pchi ldren+"  I" 


SKIP 

ENDDO  WHILE  .NOT.  EOF 
DO  monitr 

*  Delete  the  temporary  files  TEMPI  and  TEMP2 

DELETE  FILE  tempi. DBF 
DELETE  FILE  temp2.DBF 
RETURN 


12/01/85 


LIST  OF  OFFICERS  INCLUDING  MARITAL  STATUS 


N  A 

M  E 

RANK 

MARITAL  STATUS 

CHILDREN  1 

Adeuns 

Garry 

J 

CPT 

Married 

Alkamo 

Jim 

P 

ILT 

Married 

3  i 

Allen 

David 

E 

CPT 

Divorced 

1  ! 

Boris 

Peter 

H 

CPT 

Married 

1  ! 

Borrias 

Nick 

L 

CPT 

Unmarried 

Brown 

Peter 

R 

CPT 

Married 

1  ! 

Bruce 

Mark 

P 

CPT 

Divorced 

Byron 

Larry 

M 

CPT 

Unmarried 

Clark 

Tom 

L 

MAJ 

Unmarried 

Cook 

Ryan 

K 

MAJ 

Married 

2  ! 

Crosby 

Jerry 

J 

MAJ 

Married 

2  ! 

Dalton 

John 

E 

MAJ 

Married 

Denton 

Mark 

S 

ILT 

Married 

2  1 

Dorey 

J  im 

H 

MAJ 

Divorced 

2  ! 

Durran 

Frank 

M 

MAJ 

Married 

Emery 

Roy 

J 

MAJ 

Divorced 

Evans 

Isaac 

M 

ILT 

Married 

1  1 

Evans 

Tom 

M 

ILT 

Unmarried 

Farmer 

Peter 

J 

ILT 

Unmarried 

Faser 

Gas 

L 

ILT 

Unmarried 

Felton 

John 

K 

ILT 

Unmarried 

F  <0 1  ey 

Mark 

L 

ILT 

Unmarried 
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50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


Kontos 

Koom 

Kueny 

Larsen 

Larson 

Layton 

Lemos 

Lopez 

Manos 

Moore 

Morris 

Morton 

Newman 

Newton 

Norton 

Ocasio 

Odello 

Olsen 

Onas is 

Oscar 

Owens 

Palmer 

Pappas 

Patton 

Perry 

Peters 


David  K 
Peter  H 
John  S 
Allen  A 
Roger  K 
John  E 
Tim  N 
Tom  L 
John  K 
Roger  L 
Roy  K 
Brian  C 
Ben  K 
John  J 
Denis  E 
Jim  E 
Bruno  A 
Joe  N 
George  E 
Tom  K 
Bill  L 
Bob  L 
Nick  C 
Mike  H 
Bill  H 
Mark  J 
Nick  K 


OPT 

Married 

3 

LTC 

Married 

3 

LTC 

Unmarried 

OPT 

Married 

CPT 

Unmarried 

OPT 

Divorced 

1 

CPT 

Unmarried 

CPT 

Married 

1 

CPT 

Married 

CPT 

Married 

2 

CPT 

Married 

1 

CPT 

Married 

ILT 

Married 

2 

ILT 

Married 

3 

ILT 

Married 

2 

BG 

Married 

2 

COL 

Divorced 

1 

LTC 

Married 

3 

ILT 

Unmarried 

ILT 

Married 

2 

ILT 

Married 

1 

LTC 

Married 

1 

ILT 

Unmarried 

LTC 

Married 

3 

LTC 

Married 

1 

LTC 

Divorced 

1 

LTC 

Married 

2 
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Peter 


Potter 

Tom 

E 

COL 

Quill 

Kelvin 

J 

LTC 

Quinn 

Peter 

C 

LTC 

Rigas 

Ben 

H 

ILT 

Rivera 

Mario 

L 

MAJ 

Roberts 

Ben 

J 

LTC 

Rodes 

James 

K 

LTC 

Rokos 

Nick 

A 

LTC 

Ross 

Allan 

J 

MAJ 

Sanders 

James 

F 

LTC 

Scott 

Paul 

V 

LTC 

Spencer 

Tim 

M 

MAJ 

Stanley 

Gris 

K 

MAJ 

Takas 

Costas 

L 

CPT 

Torres 

Alex 

A 

LTC 

Turner 

Carlos 

B 

LTC 

U 1 Iman 

Rolf 

G 

CPT 

Ulrey 

Dan 

A 

CPT 

Victor 

David 

R 

CPT 

Vongel 

Mark 

E 

CPT 

Warren 

Geo 

M 

CPT 

Waters 

Gary 

L 

CPT 

Watson 

Ralph 

D 

CPT 

Z  ikas 

Tom 

J 

CPT 

Unmarried 

Unmarried 

Married 

Married 

Married 

Divorced 

Married 

Married 

Married 

Unmarried 

Unmarried 

Unmarried 

Unmarried 

Married 

Unmarried 

Unmarried 

Married 

Married 

Unmarried 

Unmarried 

Married 

Married 

Divorced 

Married 


7. 


Program  Report? 

This  program  calculates  the  service  time  in  the  cur¬ 
rent  unit,  as  well  as  the  total  service  time  for  each  officer 
The  output  of  the  program  is  directed  to  the  printer  only, 
while  appropriate  messages  are  displayed  on  the  screen  to 
inform  the  user  of  what  is  going  on  at  the  various  steps  of 
the  program. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  headlines  are  printed. 

b.  The  MASTER  file  is  copied  to  the  file  TEMP 
including  only  the  fields  'name',  'serentry',  and  ' reptdate ' . 
Then  this  file  is  sorted  by  name  to  the  file  TEMPI,  which  is 
used  for  the  main  process. 

c.  The  program  performs  a  WHILE  loop  to  do  the 
following ; 

(1)  In  order  to  do  the  calculations  the  proper 
way,  we  have  to  transform  the  format  of  the  dates  from 
MM/DD/YY  to  YY/MM/DD. 

(2)  We  calculate  the  service  time  in  current 
unit  as  follows:  The  day  of  the  report  date,  is  compared 

to  the  day  of  the  day  of  the  current  date.  If  it  is  greater, 
we  add  30  days  to  the  day  of  the  current  date,  and  subtract 
1  from  the  month  of  the  current  date,  otherwise  they  remain 
unchanged.  Then  the  month  of  report  is  compared  to  the 
month  of  the  current  date,  either  unchanged  or  reduced  by  1 
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as  mentioned  before.  If  it  is  greater  we  add  12  to  the  month 
of  the  current  date  and  subtract  1  from  the  year  of  the  cur¬ 
rent  date,  otherwise  remain  unchanged.  This  way  we  make 
sure  that  the  subtraction  is  possible.  We  do  the  operation 
storing  the  number  of  years,  months,  and  days  to  memory 
variables . 

(3)  With  the  same  logic  we  calculate  the  total 
service  time. 

(4)  The  program  prints  the  main  line,  reinitial¬ 
izes  the  proper  memory  variables  to  accept  the  new  values, 
and  continues  with  the  next  record. 

d.  At  the  end  the  MONITOR  file  is  updated,  the 
temporary  files  are  deleted,  and  the  program  returns. 

The  listing  and  output  of  the  program  are  shown  in 


the  next  pages. 


**>ic**j|t**  PROGRAM  REPORT?  :4!******>»t 


*  This  program  prints  all  the  officers  with  their  service 

*  time  in  the  current  unit  and  the  total  service  time 

ERASE 

SET  CONSOLE  OFF 
SET  PRINT  ON 

*  Initialize  memory  variables 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


"  TO  pname 

"  TO  mdate 

"  TO  mserentry 
"  "  TO  mreptdate 

"LIST  OF  OFFICERS  INCLUDING  SERVICE  TIME"  TO  titlel 
"IN  CURRENT  UNIT  AND  TOTAL  SERVICE  TIME"  TO  title2 
"======================1:================"  TO  lines 

•'*  1  'SERVICE  TIME  IN  UNIT"  TO  titleS 

"! TOTAL  SERVICE  TIME  *"  TO  title4 

"*SEQ#j  NAME  1 - "  TO  midlinel 

" - [ - *"  TO  midlineS 

"*  I  ! YEARS  MONTHS  DAYS"  TO  titleS 

"  I  YEARS  MONTHS  DAYS*"  TO  titleS 
"*******************♦*♦*******;♦;********"  TO  linel 
'•  *)({****;<(*♦**♦*****;♦:♦♦**;<{***)<{;«{■•  TO  line2 
0  TO  linecount 
1  TO  seqnum 
0  TO  day 
0  TO  days 
0  TO  month 
0  TO  months 
0  TO  year 
0  TO  years 
0  TO  dayl 
0  TO  month 1 
0  TO  month2 
0  TO  yearl 


*  Print  main  headings 

@  9,19  SAY  "Now  the  headlines  are  being  printed' 

<P 

??  "  "+DATE() 


"+titlel 
"+1 ineS 
" +title2 
"+1 ineS 


inel+1 ine2 
;it  leS+ti  tle4 


?  midlinel+midline2 
?  title5+title6 
?  Iinel+line2 

STORE  linecount+13  TO  linecount 
ERASE 

*  Create  a  copy  of  the  MASTER  file  and  sort  it  by  name 

@  9, 17  SAY  "Now  wait  a  little,  the  MASTER  file  is  being  sorted" 
SELECT  PRIMARY 
USE  master 

COPY  TO  temp  FIELD  name, serentry, reptdate 
USE  temp 

SORT  ON  name  TO  tempi 

USE  tempi 

ERASE 

@  9,21  SAY  "Report?  is  currently  being  printed" 

DO  WHILE  .NOT.  EOF 

*  Store  current  field  values  in  temporary  variables 

*  so  that  the  report  date  and  service  entry  are 

*  transformed  from  the  form  MM/DD/YY  to  the  form 

*  YY/MM/DD 

STORE  name  TO  pname 

STORE  $( reptdate, 5,2) +$(reptdate, 1 , 2 ) +$( reptdate, 3,2); 

TO  mreptdate 

STORE  $(serentry, 5, 2 )+$( serentry, 1, 2 )+$( serentry, 3,2); 

TO  mserentry 

STORE  $(DATE(),7,2)+$(DATE(),1,2)+$(DATE(),4,2)  TO  radate 

*  Calculate  the  service  time  in  current  unit 

IF  VAL( $( mreptdate, 5, 2 ) )  >  VAL( $(mdate, 5, 2 ) ) 

STORE  VAL($(mdate, 5, 2) )  +  30  TO  dayl 
STORE  VAL( $(mdate, 3 , 2 ) )  -  1  TO  monthl 
ELSE 

STORE  VAL( $( mdate, 5 , 2 ) )  TO  dayl 
STORE  VAL( $( mdate, 3 , 2 ) )  TO  monthl 
ENDIF 

IF  VAL( $( mreptdate, 3, 2 ) )  >  monthl 
STORE  monthl  +  12  TO  month2 
STORE  VAL( $( radate, 1 , 2 ) )  -  1  TO  yearl 
ELSE 

STORE  monthl  TO  month2 
STORE  VAL( $( radate, 1 , 2 ) )  TO  yearl 
ENDIF 

STORE  yearl  -  VAL( $( mreptdate, 1 , 2 ) )  TO  years 
STORE  month2  -  VAL( $(mreptdate, 3, 2 ) )  TO  months 
STORE  dayl  -  VAL( $( mreptdate, 5, 2 ) )  TO  days 

*  Calculate  the  total  service  time 

IF  VAL(  $(  mserentry ,  5 , 2  )  )  >  VAI.($(mdate,  5,  2  )  ) 


STORE  VAL($(n)date,5.2))  +  30  TO  dayl 
STORE  VAL($(indate,  3.  2) )  -  1  TO  monthl 
ELSE 

STORE  VAL($(mdate,5,2))  TO  dayl 
STORE  VAL($(mdate, 3, 2) )  TO  monthl 
END  IF 

IF  VAL( $(mserentry, 3, 2) )  >  monthl 
STORE  monthl  +  12  TO  month2 
STORE  VAL{$(mdate. 1. 2) )  -  1  TO  yearl 
ELSE 

STORE  monthl  TO  month2 
STORE  VAL($(mdate, 1. 2) )  TO  yearl 
ENDIF 

STORE  yearl  -  VAL( $(mserentry, 1 , 2 ) )  TO  year 
STORE  month2  -  VAL( $(mserentry, 3, 2 ) )  TO  month 
STORE  dayl  -  VAL( $(mserentry, 5, 2 ) )  TO  day 

♦  Print  the  main  line 

IF  linecount  >  53 
EJECT 

STORE  50  TO  linecount 
ENDIF 

'•  I  I  I  " 

•  I  I  I 

??  '•  1 
?  " I "+STR( seqnum, 3 ) 

??  " I  " +name 

??  "I  "+STR(years, 2)+"  " +STR( months, 2 )+" 

??  STR(days.  2)  +  "  " 

??  STR(year,  2)  +  "  "+STR(month,  2 ) +  '’ 

??  STR(day,  2)4-"  J  " 

STORE  seqnum+1  TO  seqnum 
STORE  linecount+2  TO  linecount 

♦  Reinitialize  to  0  the  memory  variables  that  contain 

*  the  service  times 

STORE  0  TO  year 
STORE  0  TO  month 
STORE  0  TO  day 
STORE  0  TO  years 
STORE  0  TO  months 
STORE  0  TO  days 
SKIP 

ENDDO  WHILE  .NOT.  EOF 

*  Delete  the  temporary  files  and  update  the  MONITOR  file 
ERASE 

@  9,20  SAY  "The  temporary  auxiliary  files  are  being  deleted 

DELETE  FILE  tenp 

DELETE  FILE  tempi 

DO  monitr 

ERASE 


12/01/85 


LIST  OF  OFFICERS  INCLUDING  SERVICE  TIME 
IN  CURRENT  UNIT  AND  TOTAL  SERVICE  TIME 


* 

*SEQ*t 

♦ 

N  A 

M  E 

SERV 

TIME  IN 

UNIT! 

TOTAL 

SERVICE 

TIME* 

YY 

MM 

DD  ! 

YY 

MM 

DD  * 

♦*****************)(. 

^  ^ 

I 

1 

1 

i  1 

Adams 

Garry 

J 

1 

2 

11 

13 

2 

10 

1 

1  2 

Alkamo 

Jim 

P 

2 

4 

11 

9 

2 

9 

1 

;  3 

Allen 

David 

E 

2 

2 

15 

13 

2 

10 

1 

!  4 

Boris 

Peter 

H 

1 

4 

15 

13 

2 

9 

1 

1  5 

Borrias 

Nick 

L 

1 

4 

25 

16 

2 

9 

!  6 

Brown 

Peter 

R 

2 

2 

15 

13 

2 

10 

1 

1  7 

Bruce 

Mark 

P 

1 

3 

16 

14 

2 

11 

I  8 

Byron 

Larry 

M 

1 

3 

10 

14 

2 

11 

!  9 

Clark 

Tom 

L 

2 

4 

9 

16 

2 

10 

!  10 

Cook 

Ryan 

K 

1 

4 

10 

15 

2 

9 

!  11 

Crosby 

Jerry 

J 

2 

4 

11 

16 

2 

10 

!  12 

Dalton 

John 

E 

2 

4 

11 

17 

2 

10 

!  13 

1 

Denton 

Mark 

S 

1 

4 

12 

9 

2 

9 

!  14 

Dorey 

J  im 

H 

1 

4 

11 

18 

2 

11 

!  15 

Durran 

Frank 

M 

1 

4 

11 

18 

2 

11 

i  16 

Emery 

Roy 

J 

2 

4 

13 

18 

O 

11 

!  17 

1 

Evans 

Isaac 

M 

2 

4 

15 

8 

n 

10 

i  18 

1 

Evans 

Tom 

M 

2 

4 

16 

8 

o 

c. 

10 

!  19 

1 

Farmer 

Peter 

J 

1 

4 

18 

8 

n 

10 

20 

1 

( 

Faser 

Gas 

L 

2 

4 

19 

9 

2 

1 1 

163 


21 

Felton 

John 

K 

1 

22 

TT  Q 1 0y 

Mark 

L 

2 

23 

Ford 

Roger 

A 

1 

24 

Foster 

Kliff 

J 

2 

25 

Fox 

Don 

E 

1 

26 

Frank 

Paul 

K 

1 

27 

Franko 

Jess 

L 

2 

28 

F  reeman 

J  im 

E 

2 

29 

Ganos 

J  im 

A 

1 

30 

Garret 

Rex 

D 

2 

31 

Gi Iman 

Perry 

M 

1 

32 

Good 

John 

L 

1 

33 

Gorby 

Glen 

G 

1 

34 

Gordon 

Jerry 

W 

2 

35 

Gorman 

Bruce 

L 

2 

36 

Hogan 

Joe 

K 

2 

37 

Horan 

Kevin 

L 

1 

38 

Ingals 

Tomas 

R 

1 

39 

Jackson 

Peter 

M 

1 

40 

Jensen 

Ron 

P 

1 

41 

Jones 

Peter 

L 

n 

c. 

42 

Kaan 

Dave 

J 

1 

43 

Kamenos 

Joe 

M 

2 

44 

Kane 

Bob 

R 

1 

45 

Karras 

Mike 

L 

1 

46 

Keen 

Robt 

N 

2 

47 

King 

Lewis 

M 

1 

4 

21 

9 

2 

11 

4 

18 

10 

2 

12 

4 

3 

11 

2 

12 

4 

2 

12 

2 

9 

4 

9 

9 

2 

9 

4 

1 

10 

2 

12 

4 

10 

9 

2 

9 

4 

4 

14 

2 

11 

4 

21 

13 

2 

9 

4 

5 

12 

2 

9 

4 

6 

12 

2 

9 

4 

7 

14 

2 

11 

4 

9 

11 

2 

12 

4 

8 

13 

2 

10 

4 

12 

9 

2 

9 

4 

13 

12 

2 

9 

2 

11 

12 

2 

9 

3 

16 

14 

O 

11 

4 

11 

12 

2 

9 

4 

11 

14 

O 

L, 

11 

4 

8 

9 

9 

9 

4 

11 

30 

2 

10 

4 

17 

13 

9 

9 

4 

6 

28 

2 

12 

4 

6 

25 

O 

1 1 

3 

5 

26 

n 

L. 

9 

4 

11 

22 

•■> 

i-. 

16 
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w^v-  V-  «~-  -^-  w.t «’  -  V-^  A  j^u^-jii:.^*-. 


Kliff  Frank  E 


Kontos 

David 

K 

Koom 

Peter 

H 

Kueny 

John 

S 

Larsen 

Allen 

A 

Larson 

Roger 

K 

Layton 

John 

E 

Lemos 

Tim 

N 

Lopes 

Tom 

L 

Man  os 

John 

K 

Moore 

Roger 

L 

Morris 

Roy 

K 

Morton 

Brian 

C 

Newman 

Ben 

K 

Newton 

John 

J 

Norton 

Denis 

E 

Ocasio 

J  im 

E 

Odello 

Bruno 

A 

Olsen 

Joe 

N 

Onas is 

George 

E 

Oscar 

Tom 

K 

Owens 

Bill 

L 

Palmer 

Bob 

L 

Pappas 

Nick 

C 

Patton  Mike  H 


Peters 

Mark 

J 

2 

4 

13 

21 

2 

13 

Peters 

Nick 

K 

1 

4 

12 

22 

2 

16 

Potter 

Tom 

E 

1 

4 

12 

25 

2 

9 

Quill 

Kelvin 

J 

2 

4 

12 

20 

2 

9 

Quinn 

Peter 

C 

2 

4 

19 

20 

2 

9 

Rigas 

Ben 

H 

2 

4 

14 

9 

2 

9 

Rivera 

Mario 

L 

1 

4 

14 

16 

2 

9 

Roberts 

Ben 

J 

2 

4 

12 

20 

2 

9 

Rodes 

James 

K 

1 

4 

9 

20 

2 

9 

Rokos 

Nick 

A 

1 

4 

13 

20 

2 

9 

Ross 

Allan 

J 

1 

4 

6 

16 

2 

9 

Sanders 

James 

F 

1 

4 

11 

20 

2 

11 

Scott 

Paul 

V 

2 

3 

16 

20 

2 

11 

Spencer 

Tim 

M 

1 

4 

23 

16 

2 

9 

Stanley 

Gris 

K 

2 

4 

22 

16 

2 

9 

Takas 

Costas 

L 

1 

4 

20 

13 

2 

9 

Torres 

Alex 

A 

1 

4 

21 

19 

2 

13 

Turner 

Carlos 

B 

2 

3 

16 

19 

2 

13 

U 1  Iraan 

Rolf 

G 

2 

4 

28 

13 

2 

10 

Ulrey 

Dan 

A 

1 

4 

25 

14 

O 

a 

11 

Victor 

David 

R 

2 

4 

11 

12 

2 

Vongel 

Mark 

E 

2 

4 

16 

14 

2 

11 

Warren 

Geo 

M 

1 

3 

16 

13 

O 

c. 

10 

Waters 

Gary 

L 

1 

4 

16 

14 

O 

1 1 

Watson 

Ralph 

D 

2 

4 

11 

13 

2 

10 

Z  ikas 

Tom 

J 

1 

4 

19 

13 

2 

9 

•ii/CvAV* 


This  program  prints  all  the  officers  in  alphabetical 
order  including  name,  rank,  address,  and  phone  #. 

The  structure  of  the  program  is  as  follows: 

a.  The  necessary  memory  variables  are  initialized 
and  the  main  heading  is  printed. 

b.  The  MASTER  file  is  sorted  into  the  temporary 
file  TEMP  in  alphabetical  order,  with  key  the  officer's  name 

c.  The  program  performs  the  main  process  within  a 
WHILE  loop  which  includes: 

(1)  Storing  the  appropriate  field  values  to  the 
corresponding  memory  variables. 

(2)  Retrieving  the  appropriate  rank  name  from 

RANKS  file. 

(3)  Printing  the  main  line  of  the  output,  and 
proceeding  with  the  next  record. 

d.  The  temporary  file  TEMP  is  deleted,  the  MONITOR 
file  is  updated,  and  then  the  program  returns. 

The  listing  and  output  of  the  program  are  shown  in 


the  next  pages. 


*♦**♦**)»:  PROGRAM  REPORTS  ******** 


*  This  program  prints  all  the  officers  in  alphabetical 

*  order  including  name,  rauik,  address,  and  phone# 

ERASE 

*  Initialize  memory  variables 

STORE  "LIST  OFF  OFFICERS  WITH  THEIR  ADDRESS  AND  PHONE#"  TO  title 


STORE  "==============================================="  TO  line 

STORE  1  TO  seqnum 

STORE  0  TO  linecount 

STORE  "  "  TO  pname 

STORE  "  "  TO  rankname 

STORE  "  "  TO  mrank 

STORE  "  “  TO  paddress 

STORE  "  "  TO  pphone 


SET  PRINT  ON 
*  Print  the  heading 


7 

?? 

p 

?? 

p 

p 

p 

p 

p 

?? 

p 

p? 

p 

?? 


+DATE( ) 
+  ■• - 


"+title 
"+1 ine 


" I SEQ# !  NAME 
ADDRESS  ;  PHONE#  ! 


STORE  linecount  +  9  TO  linecount 
SELECT  PRIMARY 
USE  master 


RANK  I 


*  Sort  MASTER  file  in  alphabetical  order  of  the  officer’s 

*  names  into  the  temporary  file  TEMP,  and  use  this  file  for 

*  the  database  processing 


SORT  ON  name  TO  temp  ASCENDING 
USE  temp 

DO  WHILE  .NOT.  EOF 

STORE  name  TO  pname 
STORE  rank  TO  mrank 
STORE  address  TO  paddress 

STORE  $(phone, 1, 3)+"-"+$(phone, 4, 4)  TO  pphone 


*  Search  RANKS  file  with  key  the  field  'rank’  of  the 

*  officer’s  record  and  get  the  appropriate  rank  name 


SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &inrank 
IF  $(p. unit, 1, 1 )  =  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

*  If  the  line  counter  exceeds  53,  continue  in  the  next  page 

IF  linecount  >  53 
EJECT 

STORE  0  TO  linecount 
END  IF 


*  Print  the  data  concerning  the  officer 


<p 

??  " 

1 

1  1 

1  1 

1  1  '• 

1  < 

"  1 "+STR( seqnum, 3) 

"  1 

'’+pname 

«?«?  1 

" +rankname 

O'?  •'  1 

"+paddress 

??  " 

"  +pphone+ " I 

'* 

STORE 

linecount+2 

TO  linecount 

STORE 

seqnum+1  TO 

seqnum 

STORE 

' ' 

■’  TO  pnarae 

STORE 

"  TO  rankname 

STORE 

"  TO  mrank 

STORE 

■■  TO  paddres 

STORE 

“  *' 

TO  pphone 

*  Continue  with  the  next  record 


SELECT  PRIMARY 
SKIP 

ENDDO  WHILE  .NOT.  EOF 

*  Delete  file  TEMP,  update  MONITOR  file  and  return 


DELETE  FILE  temp. DBF 

DO  monitr 

RETURN 


********  PROGRAM  PRINTMON  **=»«***** 


*  This  prograun  prints  statistical  information 

*  of  who  did  what  and  when 

ERASE 
DO  monitr 


*  Initialize  memory  variables 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


"MONITORING  THE  USERS’  ACCESS  TO  THE  SYSTEM"  TO  titlel 
"=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ===  =  ==!:  =  =  ===  =  =  =  =  =:  =  =:  =  =  =  =:=■'  TO  linel 
DATE  NAME  JOB  DONE"  TO  title2 

FILE/REP  n  OF  REC"  TO  titleS 

•• - TO  line2 

" - "  TO  lines 


*  Print  the  headline 

SET  PRINT  ON 
?  " 

??  "  "+DATE() 

?  " 

<?<?  "  - •• 

?  "  "+titlel 

?  "  "+linel 

T 

?  "  "+title2 

??  titles 
?  "  "+line2 

??  lines 
SELECT  PRIMARY 
USE  monitor 
DO  WHILE  .NOT.  EOF 

*  Print  the  main  line 


?  " 

??  " 

??  " 

??  " 

??  " 

SKIP 

ENDDO  WHILE 
RETURN 


"+date 

"  fname 
"  + job 

"  +-f  le  ;  rept 
"  +STR( numrec, S  ) 


12/01/85 


LIST  OF  OFFICERS  WITH  THEIR  ADDRESS  AND  PHONED 


SEQ» 

N  A 

M  E 

RANK 

ADDRESS 

PH0NE<»  1 

1 

Adams 

Garry 

J 

CPT 

49 

Scott,  San  Jose 

375-57201 

2 

Alkauno 

J  im 

P 

LTJG 

64 

3rd,  Otay 

623-3460,' 

3 

Allen 

David 

E 

CPT 

36 

Laine,  Ford  Ord 

375-5619 ! 

4 

Boris 

Peter 

H 

LT 

6  1st,  Monterey 

623-3133 ! 

5 

Borrias 

Nick 

L 

LT 

10 

Pine,  Monterey 

623-3232 1 

6 

Brown 

Peter 

R 

CPT 

17 

River,  Salinas 

373-5518 ! 

7 

Bruce 

Mark 

P 

CPT 

86 

Monroe,  Marina 

375-5417 i 

8 

Byron 

Larry 

M 

CPT 

24 

Pine,  Monterey 

373-5316 ! 

9 

Clark 

Tom 

L 

MAJ 

66 

Hills,  Marina 

373-5215 1 

10 

Cook 

Ryan 

K 

MAJ 

44 

Carlos,  Monterey 

373-4913 i 

11 

Crosby 

Jerry 

J 

MAJ 

36 

Forest,  St  Clara 

373-4912 ! 

12 

Dalton 

John 

E 

MAJ 

22 

Mount,  Carmel 

373-4911'i 

13 

Denton 

Mark 

S 

LTJG 

63 

2nd,  Otay 

623-34501 

14 

Dorey 

J  im 

H 

MAJ 

81 

Lake,  Salinas 

373-4915 ! 

15 

Durran 

Frank 

M 

MAJ 

77 

Hills,  San  Jose 

374-5816 1 

16 

Emery 

Roy 

J 

MAJ 

79 

Forest,  San  Jose 

373-6819 ! 

17 

Evans 

Isaac 

M 

ILT 

18 

David,  Marina 

373-6774 1 

18 

Evans 

Tom 

M 

ILT 

17 

Della,  Marina 

373-6773 i 

19 

Farmer 

Peter 

J 

ILT 

16 

Denise,  Carmel 

373-6772 1 

20 

Faser 

Gas 

L 

ILT 

15 

Diane,  Bonita 

373-677 1 ; 

21 

Felton 

John 

K 

ILT 

14 

Fox,  Nestor 

373-67701 

22 

Foley 

Mark 

L 

ILT 

59 

Hof man,  Fresno 

568-6229 ! 
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23 

Ford 

Roger 

A 

CPT 

52 

Morgan,  Otaiy 

565-6236 

24 

Foster 

Kliff 

J 

CPT 

55 

Lilly,  Carmel 

565-6227 

25 

Fox 

Don 

E 

LTJG 

66 

Belden,  Carmel 

623-3480 

26 

Frauik 

Paul 

K 

ILT 

57 

Pine,  Otay 

565-6228 

27 

Franko 

Jess 

L 

LTJG 

65 

Desty,  Moreno 

623-3470 

28 

Freeman 

Jim 

E 

CPT 

51 

Lase,  Carmel 

565-6225 

29 

Ganos 

Jim 

A 

LT 

10 

Passo,  San  Diego 

623-3134 

30 

Garret 

Rex 

D 

CPT 

49 

Kity,  Monterey 

565-6224 

31 

Gilman 

Perry 

M 

CPT 

47 

Laco,  Carmel 

565-6223 

32 

Good 

John 

L 

CPT 

45 

David,  Otay 

565-6222 

33 

Gorby 

Glen 

G 

CPT 

41 

9th,  Fresno 

565-6220 

34 

Gordon 

Jerry 

W 

CPT 

43 

Pine,  Otay 

565-6221 

35 

Gorman 

Bruce 

L 

LTJG 

62 

David,  Otay 

623-3440 

36 

Hogan 

Joe 

K 

CPT 

98 

Camino,  Marina 

373-5922 

37 

Horan 

Kevin 

L 

CPT 

74 

Ramona,  Carmel 

375-5821 

38 

Ingals 

Tomas 

R 

CPT 

11 

Forest,  St  Clara 

373-6225 

39 

Jackson 

Peter 

M 

CPT 

32 

Grove,  Monterey 

■373-6023 

40 

Jensen 

Ron 

P 

CPT 

55 

Hilby,  Salinas 

373-6124 

41 

Jones 

Peter 

L 

LTJG 

67 

Passo,  Salinas 

623-3481 

42 

Kaan 

Dave 

J 

MG 

71 

Buna,  Monterey 

372-6402 

43 

Kamenos 

Joe 

M 

LT 

60 

Desty,  Monterey 

623-3138 

44 

Kane 

Bob 

R 

BG 

53 

Vista,  Monterey 

272-6403 

45 

Karras 

Mike 

L 

LTC 

19 

Franklin,  Marina 

372-6406 

46 

Keen 

Robt 

N 

COL 

48 

Cannery,  Carmel 

372-6404 

47 

King 

Lewis 

M 

LTC 

31 

Trinity,  Salinas 

372-6408 

48 

Kirk 

Burt 

N 

LTC 

25 

Ocean,  Monterey 

372-6407 

49 

Kliff 

F  rank 

E 

MAJ 

52 

Castro,  Fresno 

375-5114 
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Larsen  Allen  A 
Larson  Roger  K 
Layton  John  E 
Lemos  Tim  N 


Palmer 

Bob 

Pappas 

Nick 

Patton 

Mike 

Perry 

Bill 

Peters 

Mark 

Peters 

Nick 

10  Pine,  Marina 
97  Nadina,  Carmel 

28  Mission,  Monterey 
39  6th,  Fresno 

37  Marcy,  Fresno 
35  Spencer,  Carmel 
13  Dian,  Otay 

33  Pine,  Bonita 
25  3rd,  Carmel 
27  Market,  Marina 
31  David,  Otay 
27  Morena,  Carmel 

19  Pine,  Marina 

20  View,  Monterey 

21  Side,  Carmel 

25  Dexter,  Carmel 

26  Hawk,  Toro 

23  Hofman,  Fresno 
9  2nd,  Carmel 

61  David,  Otay 

22  Pine,  Carmel 
84  Tamara,  Marina 

11  3rd,  Otay 

69  Lowell,  San  Jose 

38  Casa,  Santa  Clara 

62  Story,  Salinas 
75  Wanda,  Carmel 


623-3137 

372-6405 

372- 6409 
565-6219 
565-6218 
565-6217 
623-3139 
565-6216 
565-6212 
565-6213 
565-6215 
565-6214 

373- 6775 
373-6776 
373-6777 
373-6789 
373-6781 
373-6779 
623-3140 
623-3430 
373-6778 
372-6412 
623-3410 

372- 6413 

373- 6414 
372-6410 
372-6411 


Potter  Tom 


E 


CAPT 


27  Rosita,  Carmel 


373-6782 


Quill 

Kelvin 

J 

CDR 

29 

6th  st 

,  Alto 

373-6784 

Quinn 

Peter 

C 

CDR 

28 

10th  st,  Alto 

373-6783 

Rigas 

Ben 

H 

LTJG 

33 

Pine, 

Otay 

623-3420 

Rivera 

Mario 

L 

LCDR 

50 

Pine, 

Alto 

373-6788 

Roberts 

Ben 

J 

CDR 

31 

7th,  Alto 

373-6786 

Rodes 

James 

K 

CDR 

32 

David, 

F  resno 

373-6787 

Rokos 

Nick 

A 

CDR 

30 

7th,  Carmel 

373-6785 

Ross 

Allan 

J 

LCDR 

51 

Jakobs 

,  Carmel 

373-6780 

Sanders 

Jajnes 

F 

LTC 

57 

Sinex, 

Marina 

372-6415 

Scott 

Paul 

V 

LTC 

42 

Grand, 

Carmel 

372-6416 

Spencer 

Tim 

M 

LCDR 

99 

David, 

Carmel 

623-3130 

Stanley 

Cris 

K 

LCDR 

15 

David, 

Sal inas 

623-3131 

Takas 

Costas 

L 

LT 

8  Elden, 

Salinas 

623-3135 

Torres 

Alex 

A 

LTC 

60 

Sinex, 

Fresno 

372-6413 

Turner 

Carlos 

B 

LTC 

15 

Grove, 

Monterey 

372-6417 

U1 Iman 

Rolf 

G 

CPT 

22 

Maple, 

F  resno 

565-6210 

Ulrey 

Dan 

A 

CPT 

23 

Marge, 

Carmel 

565-6211 

Victor 

David 

R 

CPT 

64 

Pine, 

Carmel 

373-6629 

Vongel 

Mark 

E 

CPT 

80 

Hills, 

Fresno 

375-6731 

Warren 

Geo 

M 

CPT 

37 

Holman 

,  Carmel 

373-6326 

Waters 

Gary 

L 

CPT 

26 

V  ina. 

Monterey 

376-6528 

Watson 

Ralph 

D 

CPT 

41 

Dolore 

s,  Marina 

375-6427 

Z  ikas 

Tom 

J 

LT 

16 

Gordiou,  Carmel 

623-3136 

D.  MISCELLANEOUS  OPERATIONS 

These  are  auxiliary  operations,  which  have  been  included 
in  our  Database  System,  to  provide  the  Commander  of  a  Forma¬ 
tion  and  the  aiding  personnel,  some  statistical  information 
about  any  work  done  in  the  database,  as  well  as,  some  informa¬ 
tion  concerning  officers  deleted  from  the  current  Unit.  This 
information  is  recorded  automatically  during  the  whole  opera¬ 
tion  of  the  database,  in  the  files  MONITOR,  and  STATISTIC, 
respectively.  These  files  can  be  printed  or  deleted  upon 
request.  In  addition,  we  have  included  in  this  function,  a 
screen  display,  or  printer  output,  of  all  the  data  concerning 
an  officer. 

The  programs  implementing  this  function  of  the  system, 
with  a  short  description  of  what  each  performs,  are  given 
below: 

1 .  Program  Printmon 

This  program  prints  the  MONITOR  file,  which  keeps 
track  of  who  does  what  and  when. 

2 .  Program  Printstat 

This  program  prints  the  STATISTIC  file,  which  contains 
some  information  about  the  officers  who  have  been  deleted 
from  their  previous  Unit. 

3 .  Program  Delmon 

This  program  deletes  the  data  from  the  MONITOR  file. 

4 .  Program  Delstat 

This  program  deletes  the  data  from  the  STATISTIC  file. 
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This  program  displays  on  the  screen,  or  prints, 
depending  on  the  user's  choice,  all  the  information  included 
in  an  officer's  record. 

The  listings  of  the  above  programs,  as  well  as,  the 
output  if  any,  are  shown  in  the  next  pages. 


*  ***:♦*♦♦  program  PRINTMON  *!)e****:<c* 

*  This  program  prints  statistical  information 

*  of  who  did  what  gind  when 

ERASE 
DO  monitr 

*  Initialize  memory  variables 

STORE  "MONITORING  THE  USERS’  ACCESS  TO  THE  SYSTEM"  TO  titlel 
STORE  "==========================================■■  TO  linel 

STORE  "  DATE  NAME  JOB  DONE"  TO  title2 

STORE  "  FILE/REP  #  OF  REC"  TO  titleS 

STORE  " - "  TO  line2 

STORE  " - "  TO  lines 

*  Print  the  headline 


SET  PRINT  ON 


"+DATE( ) 


"+titlel 
" +1 inel 


?  "  "+title2 

??  titles 
?  "  "+line2 

??  lines 
SELECT  PRIMARY 
USE  monitor 
DO  WHILE  .NOT.  EOF 

*  Print  the  main  line 


?  "  "+date 

??  "  "+name 

??  "  "  +  .job 

??  "  " +f le ; rept 

??  "  "+STR(numrec. 3 ) 

SKIP 

ENDDO  WHILE 
RETURN 
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PROGRAM  PRINTSTAT  ******** 


*  This  program  prints  the  statistic  file  which  contains 

*  some  information  about  the  officers  who  have  been 

*  deleted  from  their  previous  unit 

ERASE 

*  Initialize  memory  variables 


STORE  "STATISTIC  INFORMATION  OF  DELETED  OFFICERS"  TO  titlel 
STORE  "========================================="  TO  linel 

STORE  "SER*(  NAME  RANK  UNIT  REPTDATE"  TO  title2 

STORE  "  DELDATE"  TO  title3 

STORE  " - "  TO  line2 

STORE  " - "  TO  line3 


*****  PROGRAM  DELMON  ***** 


*  This  program  deletes  the  data  of  the  MONITOR  file 

ERASE 
?  CHR(7) 

@  7,30  SAY  •■***  WARNING  ***" 

@  9,17  SAY  "The  data  of  the  MONITOR  file  will  be  deleted" 

@  11,31  SAY  "PROCEED?  Y/N" 

STORE  "  "  TO  aunswer 
WAIT  TO  answer 
IF  answer  =  "y" 

SELECT  PRIMARY 

USE  monitor 

GOTO  TOP 

DELETE  NEXT  1000 

PACK 

USE 

ERASE 

@  9,13  SAY  "If  you  have  made  a  mistake. . . , sorry  it  is  late 
@  11,19  SAY  "MONITOR  file  has  been  deleted" 

STORE  1  TO  delay 
DO  WHILE  delay  <  80 

STORE  delay+1  TO  delay 
ENDDO  WHILE 
DO  monitr 
ELSE 
ERASE 
?  CHR<7) 

@  9,20  SAY  "***  Be  careful,  time  is  money  ***" 

STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
ENDIF 
RETURN 


********  PROGRAM  DELSTAT  ******** 

*  This  program  deletes  the  statistic  officers  file 

ERASE 
?  CHR(7) 

@  7,30  SAY  ■•***  WARNING  ***" 

@  9,21  SAY  "The  STATISTIC  file  will  be  deleted" 

@  11,31  SAY  "PROCEED?  Y/N" 

STORE  "  "  TO  amswer 
WAIT  TO  answer 
IF  answer  =  "y" 

SELECT  PRIMARY 

USE  statistic 

GOTO  TOP 

DELETE  NEXT  1000 

PACK 

USE 

ERASE 

@  9, 17  SAY  "The  STATISTIC  file  has  now  been  deleted 
STORE  1  TO  del 
DO  WHILE  del  <  40 
STORE  del+1  TO  del 
ENDDO  WHILE 
DO  monitr 
ELSE 

ERASE 
?  CHR(7) 

@  9,20  SAY  "***  Be  careful,  time  is  money  ***” 

STORE  1  TO  delay 
DO  WHILE  delay  <  30 

STORE  delay+1  TO  delay 
ENDDO  WHILE 
ENDIF 
RETURN 
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********  PROGRAM  DISPSCRN  ******** 

*  This  program  displays  on  the  screen  or  printer  all  the 

*  information  concerning  an  officer 

ERASE 

*  Initialize  memory  variables 

STORE  '■  "  TO  mserno 

STORE  "  "  TO  rankcode 

STORE  '■  "  TO  unitcode 

STORE  "  "  TO  dutycode 

STORE  "  "  TO  langcode 

STORE  "  "  TO  sccode 

STORE  '■  "  TO  rankname 

STORE  "  ■'  TO  unitname 

STORE  '■  "  TO  dutyname 

STORE  "  ■■  TO  scname 

STORE  "  "  TO  langname 

STORE  "  "  TO  degrname 

STORE  "  "  TO  marstname 

STORE  0  TO  count 

SELECT  PRIMARY 

USE  master  INDEX  master 

STORE  "y"  TO  answer 

DO  WHILE  suiswer  =  "y" 

ERASE 

@  2,10  SAY  "DISPLAYING  OFFICERS'  RECORDS" 

@  5,10  SAY  "Enter  serial  number"  GET  mserno  PICTURE  "9999" 
@  7,10  SAY  "Press  'ENTER'  to  exit" 

READ 

IF  ${mserno, 1 , 1 )  =  "  " 

*  Update  TEMPOR  and  MONITOR  files,  and  return 


IF  count  <>  0 

SELECT  SECONDARY 
USE  temper 

REPLACE  counter  WITH  count 
USE 

DO  raonitr 
ENDIF 
RETURN 
ENDIF 
ERASE 

@  5,10  SAY  "Where  do  you  want  the  display  to  be  directed?" 
@7,10  SAY  "  1  =  Screen" 

@  8,10  SAY  "  2  =  printer" 

STORE  "  "  TO  answer 
WAIT  TO  answer 
IF  answer  =  "2" 

SET  FORMAT  TO  PRINT 
ENDIF 
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*  Find  the  officer  in  MASTER  file 


FIND  &mserno 
IF  #  =  0 
ERASE 
?  CHR(7) 

@  10, 10  SAY  "This  record  does  not  exist,  try  again" 
STORE  1  TO  del 
DO  WHILE  del  <  30 

STORE  del+1  TO  del 
ENDDO  WHILE 
LOOP 
END  IF 

*  Store  the  codes  of  certain  information  concerning  the 

*  officer,  to  memory  variables  in  order  to  be  used  as  keys 

*  for  finding  the  real  data  from  the  appropriate  files 

STORE  rank  TO  rankcode 
STORE  unit  TO  unitcode 
STORE  duty  TO  dutycode 
STORE  educat  TO  sccode 
STORE  forlang  TO  langcode 

*  Retrieve  the  information  from  the  auxiliary  files 

SELECT  SECONDARY 
USE  ranks  INDEX  ranks 
FIND  &rankcode 
IF  $(p. unit, 1,1)=  "1" 

STORE  armyname  TO  rankname 
ELSE 

STORE  navyname  TO  rankname 
END  IF 

USE  units  INDEX  units 

FIND  &;unitcode 

STORE  title  TO  unitname 

USE  duties  INDEX  duties 

FIND  &dutycode 

STORE  name  TO  dutynaune 

USE  forlangs  INDEX  forlangs 

FIND  &langcode 

STORE  name  TO  langnarae 

USE  sciences  INDEX  sciences 

FIND  &sccode 

STORE  name  TO  scname 

*  Store  the  appropriate  name  for  marital  status  and  degree 

SELECT  PRIMARY 
DO  CASE 

CASE  degree  =  "B" 

STORE  "Bachelor"  TO  degrnarae 
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CASE  degree  =  "M" 

STORE  "Master"  TO  degrname 
CASE  degree  =  "P" 

STORE  "Ph.D"  TO  degrname 
ENDCASE 
DO  CASE 

CASE  marstat  =  "M" 

STORE  "Married"  TO  marstname 
CASE  marstat  =  "U" 

STORE  "Unmarried"  TO  marstname 
CASE  marstat  =  "D" 

STORE  "Divorced"  TO  marstname 
ENDCASE 

*  Display  the  record  in  the  screen 
ERASE 

®  1,10  SAY  "DISPLAYING  OFFICERS’  RECORDS" 
@  2,10  SAY  "============================" 

@  5,10  SAY  "SERIAL  NUMBER  :  "+mserno 

@  6,  10  SAY  "NAME  :  "+naune 

@  7,10  SAY  "RANK  :  "+rankname 

@  8,10  SAY  "UNIT  :  "+unitname 

@  9,10  SAY  "SERVICE  ENTRY  :  "+serentry 

@  10, 10  SAY  "REPORT  DATE  :  "+reptdate 

®  11, 10  SAY  "DUTY  :  "+du byname 

®  12, 10  SAY  "EDUCATION  :  "+scname 

@  13,10  SAY  "DEGREE  :  "+degrname 

®  14,10  SAY  "FOREIGN  LANG  :  "+langname 

®  15,10  SAY  "MARITAL  STATUS:  ”+marstname 

®  16,10  SAY  "CHILDREN  :  "+children 

®  17,10  SAY  "ADDRESS  :  "+address 

®  18,10  SAY  "TELEPHONE  »  :  "+phone 

STORE  count +1  TO  count 
SET  FORMAT  TO  SCREEN 

@  21,10  SAY  "DISPLAY  ANOTHER  RECORD?  (Y/N) 
WAIT  TO  answer 
STORE  "  "  TO  mserno 

ENDDO  WHILE  answer  =  "y" 

SELECT  SECONDARY 
USE  tempor 

REPLACE  counter  WITH  count 
USE 

DO  monitr 
RETURN 


V.  CONCLUSIONS  AND  RECOMMENDATIONS 


In  this  thesis,  we  tried  to  develop  a  personnel  data¬ 
base  system  model,  suitable  for  implementation  within  the 
Hellenic  Armed  Forces  Formations.  This  system  could  also 
be  applied  to  any  subdivision  of  the  Hellenic  Armed  Forces 
hierarchy,  with  only  slight  modification. 

Our  main  goal  is  to  increase  productivity,  effective¬ 
ness,  efficiency,  accuracy,  and  speed,  as  far  as  personnel 
management  is  concerned,  as  well  as  to  decrease  the  national 
expenditure,  and  release  manpower  for  other  purposes.  Also, 
the  Commander  of  a  Formation  will  be  able  to  make  fast 
decisions  concerning  personnel,  which  is  important  as  well. 

We  used  dBASE  II  as  a  database  management  system,  since 
it  is  based  on  the  relational  model,  which  increases  indepen¬ 
dency,  and  reduces  redundancy.  In  addition,  dBASE  II  contain 
its  own  programming  language,  which  is  a  structured,  high- 
level  language,  which  is  generally  very  efficient  for 
manipulating  data  in  the  database. 

We  have  implemented  the  most  usually  needed  reports,  but 
a  wide  variety  of  other  reports,  or  simple  queries,  could 
also  be  created.  Also,  we  tried  to  keep  the  programs  as 
user  friendly  as  possible,  in  order  to  help,  not  hinder,  the 
operators  in  their  job. 

The  software  life  cycle  has  been  taken  into  account 
during  the  program  development  process.  Programs  are  easy 
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to  modify  to  meet  future  improvement  needs.  In  our  appli¬ 
cation  we  have  used  the  top-down  design  approach  which 
serves  the  above  goal. 

In  this  implementation  we  have  included  only  officers, 
and  a  certain  amount  of  data  for  each  of  them.  Future 
improvements  could  include  the  entire  military  personnel, 
and  we  could  add  more  information  to  the  record  of  each 
individual,  such  as  place  and  date  of  birth,  medical  infor¬ 
mation,  military  education,  and  statistical  information 
concerning  the  units  he  has  been  assigned  up  to  the  present 
time,  to  name  just  a  few. 

This  thesis  constitutes  a  good  basis  for  the  future 
computerization  of  personnel  management,  in  the  Hellenic 
Armed  Forces  Formations,  as  well  as  in  subordinate  units. 
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